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The  Commodore  64C 

Report  From  The  Summer 
Consumer  Electronics  Show 


Tightrope 

A  Thrilling  ActiorS  Gome 
For  CofT)m6dore  64,  1 28, 
Atari,  Apple,  Amiga, 
IBM  PC/PCjr 


Sprite  32 

For  Commodore  64 

Dozens  Of  Sprites 
Onscreen  At  Once 


IMODified  Shapes 
For  Atari  ST 

Colorful  Graphics 
In  ST  BASIC 
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A  New  IF/THEN 
For  Atari  BASIC 


Password  Protection 
For  Apple  II  Disks 

Batch  Files 
With  IBM  BASIC 
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CBYSTAl COMPUTER  INC. 

In  Michigan  1-517-224.7667 
Oulsidc  Michigan  1-600.2^5-7316 


CANADIAN  DEALER  ENQUIRIES: 

INGRAM  CANADA  LTD. 

?. 416-738-1700 


Only  The 
Name  Is  New 


bur  Commodore  128  or  64 


The  professional, 
full-featured  software 
line  from  Digital  Solutions 
is  now  called  Pocket 
Software. 

Pocket  Writer  128/64. 
Pocket  Filer  128/64. 
Pocket  Planner  128/64. 
The  names  ore  new,  but 
this  super  software  is  still 
the  same. 

From  now  on,  when  you 
hear  the  word  Pocket,  i| 
means  software  that's 
full-featured,  handy  and 
easy  to  use. 

Pocket  Software  at  pric 
that  won't  pick  your 
pocket. 


Serious  software 
that's  simple  to  use. 


Iter  128 
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^^ou  want  the  very  best  software  you  can  find  for  your 
Commodore  128  or  64,  right? 

II^You  want  integrated  software  —  word  processing, 
'■"'  database  and  spreadsheet  appiications  —  at  a  sensible 
price.  But,  you  also  want  tcp-of-the-line  features. 
Well,  our  Pocket  128/64  software  goes  one  better. 


>u'll  find  all  the  features  you 
in  imagine . . .  and  then  some.  And  Pocket  128/64  is  so 
easy  to  use,  you  won't  even  need  the  reference  guide. 
On-screen  and  in  memory  instructions  will  have  you  up 
and  running  in  less  than  30  minutes,  even  if  you've  never 
used  a  computer  before. 

The  price?  It's  as  low  as  you'd  expect  for  a  line  of 
software  called  'Pocket'.  Suggested  Retail  Price  for  the  64 
software  is  $39.95  (U.S.)  and  849.95  (U.S.)  forthel28. 
Any  of  the  64  products  may  be  upgraded  to  their  128 
version  for  $15.00  (U.S.)  +  $3.00  shipping  and 
handling.  (Available  to  registered  owners  from  Digital 
Solutions  Inc.  only.) 

Pocket  Writer  128  or  64,  Pocket  Planner  128  or  64  and 
Pocket  Filer  128  or  64 . . .  Solutions  at  sensible  prices 
from  Digital  Solutions  Inc. 

International  &  Distributor  enquiries  to: 

/////.  Solutions 
t///A  Inc. 


aOWertheimCourt,  Unit2 
Richmond  Hill,  Ontario 
Canada  L4B1B9 
telephone  (416)  731-8775 


Pocltet  Writer  728  and  64  are  now  available  in  French. 


Explore  Pascal  with 


THE 


from  COMPUTE!. 


The  Turbo  Pascal  Handbook 
Edward  P.  Faulk 

With  The  Turbo  Pascal  Handbook  and  Turbo  Pascal  from 
Borland  International,  you'll  be  gently  guided,  step-by-step, 
until  you're  creating  your  own  powerful  applications  in  this 
impressive  computer  language. 
$14.95     ISBN  0-87455-037-8 


This  information-pocked  book  from  COMPUTE!  is  an  outstanding  resource  and 
programming  guide.  And  it's  written  in  COMPUTEi's  bestselling  styie  so  that  even 
beginning  programmers  can  quickly  and  easily  understand  all  the  applications. 

Ask  for  The  Turbo  Pascal  Handbook  at  your  local  computer  store  or  bookstore. 
Or  order  directly  from  COMPUTE!.  Call  toll  free  1-800-346-6767  (in  NY  212-887-8525) 
or  mail  the  attached  coupon  with  your  payment  (plus  $2.00  shipping  and 
handling  per  book)  to  COMPUTE!  Books,  P.O.  Box  5038,  F.D.R.  Station.  New  York. 
NY  10150. 

Note:  You'fl  need  Turbo  Pascal  in  order  to  use  this  book.  The  software  Is  not  included  with  The  Turbo  Pascal 
flarjdbook. 
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Vest  Send  me 


copies  of  The  Turbo  Pascal  Handbook  a\  $14.95  each. 


My  payment  Is  enclosed. 


ALL  ORDERS 

MUST  BE 
Pi?EPAID  IN 
U.S.  FUNDS 


O  Payment  enclosed  (check  or  money  order) 

O  Charge    D  Visa    D  MasterCard    D  American  Express 

Account  No Exp.  Date 

Nome 

Address 

City 


Sublotai 

NO  residents  add  4.5%  saies  tax 
Shipping  and  handiing 
(S2.00  per  book  in  U.S.  and  surface 
moii;  $5.00  per  book  atrmoii.) 
TotQi  enclosed 


(RequiteeO 


State  . 


Zip. 


Plaasa  allow  4-6  weeks  for  delivery. 


364037JI 


COMPUTE!  Publicationsjnc.® 

One  of  The  ABC  Publishing  Companies  ^^^r 

825  7tri  Avenue,  6th  Floor.  New  York.  NY  1001'? 

PUSilhOfS  D(  CC5M»arE',  COWiPurEI's  GmGllo.  COtAUTE'  s  GcMl's  Dilk.  COMPurE'  Books.  anO  COMPUli'  s  Appio  ABOtcolic™ 


J 


teia^^di-alj  f&itii 


THE  CMO  ADVANTAGE 


HOME  COMPUTERS 


TO  ORDER 
CALL  TOLL  FREE 

1-800-233-8950 

DEPARTMENT  A208 
TELEX  5106017898 

OR  MAIL  YOUR  ORDER  TO: 
COMPUTER  MAIL  ORDER 

Department  A208 

477  E.  Third  Street 

Wiliiamsport,  PA  17701 
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POLICY 

Add  3%  (Mimmum  57.00)  shipping  and  handl' 
mg.  Larger  sHipmer^ts  may  require  additional 
charges.  Personal  and  company  dhecks  reqjrre 
3  weeks  Ic  dear.  Fcr  taster  delivery  use  your 
credit  card  or  send  cashier's  ched<  of  bank 
mCKi^y  order.  Pennsylvania  residents  add  6% 
sales  tax.  All  phces  are  subject  to  change  atnl 
all  items  are  subject  to  availabHity.  Defective  soft- 
ware will  be  replaced  with  the  sa/ne  item  only. 
Hardware  will  be  re;>aired  or  replaced  at  our 
discretion  within  the  the  lerms  and  limits  of  the 
manufacturer's  warranty  We  cannot  guarantee 
compatibility  All  sales  are  final  and  returned 
Ehiprnents  are  subject  to  a  restocking  fee. 

EDUCATIONAL  INSTITUTIONS 

CALL  TOLL  FREE 
1-800-221-4283 

CUSTOMER  SERVICE 

&  TECHNICAL  SUPPORT 

1-717-327-1450 

CANADIAN  ORDERS 
1-800-268-3974 

Ontario/ Quebec 

1-416-828-0866 

In  Toronto 

1-800-268-4559 

Olher  fYovinces 

TELEX:  06-218960 

2505  Dunwin  Drive, 

Mississauga,  Ontario 

Canada  L5L1T1 

AIJ  prices  shown  are  for  U.S.A.  orders  Call  the 
Canadian  Office  (or  CanaiJian  prices. 


THE  CMO  ADVANTAGE 

,"  Next  ilay  sltipping  on  all  in-stock  iterrs. 

.'  Free  easy  access  order  inquiry. 

p-  Orders  from  outside  Pennsylvania  save 

state  sales  tax. 
►'  Free  tectinical  support  from  our  factory 

trained  technicians. 
^  There  is  no  limit  and  no  deposit  on  C.O.D. 

orders. 
^  There  is  no  extra  charje  for  using  your 

Vis4  or  MasterCard  and  your  card  is  not 

charged  until  we  s^ip 
^  No  waiting  period  fof  cashier's  checks. 
^  We  accept  purchase  orders  from  qualiiied 

corporations  Subject  to  approval. 
.'  Educational  discounts  avail3t)le  to 

qualified  institutions.  (See  the  toll  free 

educational  phone  number  above.  | 
^  FREE  CATALOG  MEMBERSHIP 


ATARI 

65XE  (G4KJ Sa9.99 

taOXEflZSK) S139.00 

520ST  IS12KI $36B.0O 

520ST  Manochroma  System 

•  520ST  with  modulator 

•  dish  drive 

•  mouse  LOW.  LOW 

•  logo  SYSTEM  PRICE 

•  Basic  $649"'' 

•  1sl  Word 

•  monochrome  monitor 
520ST  Color  System 

■  520ST  with  modulator 

■  disk  drive 

•  mouse  £otV,  LOW 

•  logo  SYSTEM  PRICE 
'  Basic  $76900 

•  1st  Word 

•  color  monilpr 

800XL  64K SS9.99 

10  !0  Recorder.. S49,99 

1050  Dl5l<  Drive $149.00 

1020  Primer S29.99 

1027  Letter  Quality  Primer S129.00 

1D30  Direct  Conned  Modem S59.99 

Comrex  220  Atari S89.99 


APPLE 

APPLE  lie CALL 

APPLE  lie CALL 

lie  LCD  Display $329.00 

COMMODORE 

Amiga  Package 

■   512K        ■    t  Drive 

•  RGB  Monitor. .,,$1309.00 

C64  Package 

•  C64  •   C1511 

•  Taxan  220. $499.00 

0128  Package 

•  C128       .   C1571 

•  NAPB562  Monitor..- ST79.00 

C1 2S  Computer S289.00 

C1571  (Disk  Drive 

f or  C 1 20) $249.00 

C1902  (RGB  13"  Monitor 

for  CI  28 CALI. 

C1670  (Modem  for  C12e)$1T9.aO 

C1530  Daiasene S39.99 

01660  Aulo  Modem S59-99 

DPS  1101  Daisy  Printer S339-00 

Comrex  220  (C64  Inierface) S89.99 

Xelec  SuperGraphix  8K., S69.99 

Micro  R&D  128/64  Interface.. SS9,99 

C128  Universal  Monitor  CaOle.. .519.99 


PORTABLE  COMPUTERS 


SEC 

PC-8401    LS S699.00 

PC-a201  Portable  Computer,,  ,,$339.00 

PC-8231  Disk  Drive $599.00 

PC,8221A  Thermal  Printers $149.00 

PC-B281A  Data  Recorder $99.99 

PC.a201.06  SK  RAM $59.99 

SHARR 

PC-1350 $149.00 

PC-1261 $149.00 

PC-1500A $169.00 

PC-1250A , $B9.99 

CE-125  Pnn!Br/CasS8tle $129.00 

CE-150  Color  Primer  Casselt8.$149.00 
CE-161   16K  RAM....... $129.00 


ACCESSORIES 


AMARAY 

80  Column  Printer  Stand S14.99 

CURTIS 

Side  Mouni  SS-1 $19,99 

Side  Mounl  AT  SS-2,. $34.99 

Universal  Stand  SS-3.... $19.99 

Diamond  SP-1 , $29.99 

Emerald  SP-2 $39.99 

Sapphire  SPF-1 $49.99 

Ruby  SPF-2 $59.99 

Universal  Printer  Stand $14.99 

Static   Mat .$29.99 

DATA  SHIELD 

300  Wall  Backup $379,00 

500  Watt  Backup $589,00 

Turt:o  350  Wait  Backup $449.00 

P125  Power  Director S99.99 

PI 50  Power  Director  w/ModemSI  19.00 
KENSINGTON 

Master  Piece,,.,. $99.99 

Master  Piece   + $119.00 

KEYTRONIC5 

KB5l60/Ke5l5UKB5l51Jr CALL 

KBS 1 52e/KB5 1 53/KB5149Jr CALL 

MEMORY  CHIPS 

4164  RAM  Chips (ea.)S1.99 

128  RAM  Chips (ea.)  $12,99 

2S6  RAM  Chips (ea,)  $10.99 

■Polaroid 

Palette , $1399.00 

Power  Processor „„. , .5229,00 

Illuminated  Slide  Mounter,,.,. $39.99 

Polacolor2  Pack  film $18.99 


Kfll  HEWLETT 
Wf/iM  PACKARD 

41CV $139.00 

41CX $199,00 

HP  lie $49,99 

HP  12C $75.99 

HP  150 $75.99 

HP  160 $69.99 

HPIL  Module $98.99 

HPIL  Cassette  or  Printer $359.99 

Card  Reader $143.99 

Extended  Function  Module S63.99 

Time  Module $63.99 

We  stock  the  full  line  of 
HP  calculator  products 


DISKETTES 


GENERIC 

DS/DD  w/Fllp'nTile  10 $11.99 

51/4"  DS/DD  floppy  disks 

(Box  of  10) $26.99 

maxell 

aVi"  SS/DD  (10) $18.99 

3W  5  pack  SS/DD/Case $9.99 

31A"  OS/DD  (10) $29.99 

5Vt"  lk1D-1  SS/SD  (10) $11.99 

5%"  MD-2  OSroO  (10) $16.99 

S'A"  M0-2-HD  for  AT  (10) $29.99 

SONY 

MD1-5V<"  SS/SD  (10) , $9.99 

MD2-5y4"  DS/DD  (10) S13.99 

MD2HD-5Vj"  High  Density  (10|.$28.99 

MFD1-3V!"  SS/DD  (10) $18.99 

MFD2-3'/!"  DS/DD  (10) $29.99 

iL^Vferbalim. 

SVt"  SS/DD SI 2,99 

5V4"  DS/DD $24.99 

Disk  Analyzer ,,$24,99 

DISK  HOLDERS 

AMARAY 

EO  Disk  Tub  5V4" $9.99 

30  Disk  Tub  3W $9.99 

10Q  Disk  Tub  5V4"  w/lock $19.99 

INNQVAUVE  CONCEPTS 

Flip'n   File   10 $249 

Flip'n  File  50 $14.99 

Flip'n  File  50  w/loel! $19.99 

Flip'n  File  Data  Case $9.99 


MODEMS 


^INCHOR 

Volksmodem $59.99 

Volksmodem  300/1200 $139.00 

Signalman  Express .$209.00 

Lightning  2400  Baud $329.00 

Exprassi  (PC  HaHcard) $149.00 

6480  (64/128)  300/1200  Baud..$139,00 

620  1200  BPS $149.00 

Lightening  Half  Card $349,00 

Reach  1200  Baud  Hall  Card  ..$399.00 

DIGITAL  DEVICES 

ATaOO  -  300  Baud  (Atari) S99,99 


EVER  EX 

1200  Baud  Iniemal  (IBM/PC).. .$179.00 

IDHayes 

Smanmodem  300 $139.00 

Smartmodem  1200 $369.00 

Smanmodem   1200B $359.00 

Smartmodem  2400 $599.00 

Micromodem  He,,. $149.00 

Smart  Conn  II $89.99 

Ctlronograph .,. .,,$199.00 

Transei  1000 $309,00 

NovationiB 

Smart  Cat  Plus $299.00 

J-Cal $99.99 

Novation  2400 $499,00 

Apple  Cal  II $219.00 

212  Apple  Cat  II $379,00 

Apple  Cat  212  Upgrade $229.00 

Quad  modem  II 

300/1200 $339.00 

300/1200/2400 $499.00 

^S    SUPRA 

MPP.1064  AD/AA  (C*4) $69.99 

IOMEGA 

A110H  Single   10 ....,, CALL 

A210H  10   +   10 CALL 

A120H  Single  20 CALL 

A2Z0H  20   +  20 ...CALL 

Save  on  10  &  20  Carts CALL 

TAUGRA5S 
25,  35.  50,  BO  meg  (PC) 
...from  $1299.00 

(RWIN 

Tape  Backup CALL 

EVEREX 
60  Meg  Iniernal  Backup  System$799.00 
20  Meg  Streamer $699.00 

CORE 

AT20-AT72MB CALL 

MOUNTAIN 
Hard  Card  20 CALL 

PRIAM 

40,  60  MB  Inner  Space CALL 

snared  Data CALL 

Shared  Space CALL 

RACORE 

1500  Expansion  Chassis $379.00 

1500  Chassis  v^/DMA $429.00 

2101   256K  Memory,.,, $179.00 

2103  512K  Memory ,,$199.00 

CMS 

10  Meg  with  conirotler $399,00 

20  Meg  vjith  conirotler $499.00 

Rambo-AT $229.00 

ALLIED  TECHNOLOGY 
Apple  11,11 +  , lie  W  height $109.00 

INDUS 

Atari  GT $199.00 

C-64  /128  QT $199.00 

MSB 

SD1  C-64  Single $219.00 

SD2  C-64  Dual $46900 

TANDON 
320K  SVi"  (PC) $119.00 

TEAC 
320K  51/4'- Si  19.00 


DEPT.  A208  = 


SOFTWARE  FOR  IBM 


ANSA  SOFTWARE 

Paradox S4  99.00 

ASHTONTATE 

Framework  II $399.00 

dBase  III  Plus 3399.00 

BATTERIES  INCLUDED 

Isgur   PorlfollO $159,00 

BORLAND 

Lightening $59,99 

Sidekick  |unpro!eeiea) SS7.99 

Rellex , S59.99 

Travelling  Sidekick $44.99 

Turbo  Prolog S64.99 

CENTRAL  POINT 

Copy  II  PC-Backup S29.99 

PC  Option  Board $84.99 

DECISION  RESOURCES 

Chanmaster.... $229.00 

Signmaster $159.00 

Diagram  Master SS09.DO 

Map  Master $259.00 

FIFTH  OENERATION 
Fast   Back 99.99 

FUNK  SOFTWARE 

Sideways $44.99 

HARVARD  SOFTWARE  INC. 

Total  Projecl  Manager S269.00 

Presentation  Graptiics $239.00 

LIFETREE 

Volkswtiler   III $159.00 

LIVINQ  VIDEOTEXT 

Think  Tank $109.00 

Ready $64,99 

LOTUS 

Symphony CALL 

1-2-3  Version  2 CALL 

MECA  SOFTWARE 

Managing  Your  Money  2.0 $99.99 

Manage  Your  Markel SB9.99 

MICROPRO 

Easy $94.99 

WordStar-  2000 $239.00 

WordStar   2000 -f S289.00 

WordStar  Pro.  w/GL  Demo $169.00 

MICRORIM  SOFTWARE 

R:Base  4000 $249.00 

fliBase  5000 $359.00 

Cloul  2.0 $129.00 

MICROSOFT 

Flight   Simulator $34.99 

MulliPlan $129.00 

WOfd  3.0 $279.00 

Mouse $139.00 

MICROSTUF 

Crosstalk  XVI $89.99 

Crosstalk  Mark  IV.-. $149,00 

Remote $89.99 

MULTIMATE 

Multi  Male  Word  Proc $219.00 

Advantage S269.00 

On  File.. $89.99 

Just  Virile $89.99 

NOUNEMON 
Intuit $69.99 

NORTON 

Norton  Ulililies  3.1 $57.99 

ONE  STEP 

Qoli's  Best .„ $34.99 

PFSi  IBM 

Proof S59.99 

File/Graph [ea).$84.99 

Report $74.99 

Write/Prool  ComtX) $84.99 

PROFESSIONAL  SOFTWARE 

Wnte-N-Spoll $89.99 

THE  SOFTWARE  GROUP 

Enable $329.00 

SATELLITE  SYSTEMS 

Word  PerJect  4.1 $219.00 

SORCIM/IUS 
Accounting 

AP/AR/GUINV/OE |ea.)  $299.00 

SuperCalc  III $199,00 

EasyWnter  II  Syslem ..$239.00 

Super  Project $199.00 

SUBLOOIC 
Jet S37.99 


PRINTERS 


Canon 

A40.A50,A55 CALL 

LBP-8A1   Laser CALL 

#CITIZEN 

MSP-10  (80  col.) $279.00 

MSP-15  (132  col.) $389.I» 

MSP-20  (80  col.) $349.00 

MSP-25  (132  col.) $509.00 

crroH 

Pnjwriter  1S50P,,,. $349.00 

Starwritar   10-30 $399.00 

350O  Tri  Pnnter $1499.00 

corona 

Lazar  LP.300 $2799.00 

DIABLO 

D25  Daisywtieet $549.00 

eas  Daisywheel 51099.00 

D8QIF  Daisywheel CALL 

d*isvwriter 

2000 $699.00 

EPSON 

Homewnter  10,  LX-80  ,-, CALL 

F)(-85.  FX.266,  RX-100 CALL 

DX-10,  DX-20,  DX.36 CALL 

SQ-2000.  Hi-aO,  HS-80,  AP-80 CALL 

LQ-BOO.   LQ-10D0 ,......„CALL 

uuKr 

6000  Letter  Quality CALL 

6100  Letter  Quality CALL 

6200  Letter  Quality CALL 

6300  Letter  Quality CALL 

6500  Letter  Quality CALL 

5510  Dot  l^atrix  Color CALL 

LEGEND 

808  Dot  Malnx  100  cps $179.00 

1080  Dot  Matrix  100  cps $259,00 

1380  Dot  Matrix  130  cps $289.00 

1385  Dot  Malrix  165  ops $339.00 

IV£C 

3000  Series 5779.00 

aooo  Series ,,,,$1099.00 

ELF  360 $399.00 

P560.  P66a,  P7B0 CALL 

OKtOVIA 

182,  183.  192.  193,  2410.  84 CALL 

Okimate  10  (Specify  C64/Atari)$1 69.00 
Okimate  20(IBM).  282,  283 CALL 

Panasonic 

KXIOeO NEW 

KX1091 $259.00 

KX1092 $389.00 

KX1592 $469.00 

KX159S $659.00 

Ouadjet $399.00 

Quad  Laser CALL 

S^  SJiyEP-REEO 

500  Letter  Quality $219.00 

550  Letter  Quality ,. $299.00 

800  Letter  Quality $699,00 

SG-10C  |C64  Interface) CALL 

SB/SD/NX/SR  Series CALL 

Powertype  Letter  Quality CALL 

l^xas  Instruments 

Tle50 $629.00 

Tie55. $639.00 

TI86S.. $799.00 

TOSHIBA 

P321  (80  column) $499.00 

P341  (132  column) $799.00 

P3S1  (132  column) $1049.00 


MULTIFUNCTION  CARDS 


RamVantags....r^T;f: $349.00 

Rampage-PC $379.00 

Rampage-AT ....CALL 

Six  Pack  Plus $229.00 

[to  Plus  II $139.00 

Advantage-AT $369.00 

Preview  Mono $299.00 

PC  Net  Cards $379,00 

5251/11  On-line $669.00 

5251/12  Remote $579,00 

5251/11   Plus., $719.00 

IRMA  3270.....^^^ $879.00 

IRMA  Print $999.00 

IRMA  Smsft  Alec $779.00 

Edge   Card $259,00 

Graphics  Edge $219.00 

Magic  Card  II $159.00 

Magic  Card  I $99.99 

EGA  Video CALL 

HERCl'LE^ 

Graphics $299,00 

Color $159.00 

IMvsocians 

IDEA   5251... $549,00 

INTEL 

PCNCSOa?  5MHz 

PCNCe087-2  e  MHz CALL 

PCNCe02a7  6  MHz FOR 

1010  PC-Above  Board yOUR 

1110  PS-Above  Board.,,,,.,.. ,    PC 

2010  AT-AbovB  Board 

MYLEX 

The  Chairman $439.00 

PARADISE 

Color/Mono  Card $149.00 

Multi  Display  Card S199.00 

Five  Pack  C,  S,  0-384K $99.99 

High  Res  Mono $169.00 

EGA  Video  Card $379.00 

P^RSYST 

Bob  Board $359.00 

QUADRAM 

Quadport-AT $119.00 

Libeny-AT  (128K) S349.00 

The  Gdd  Ouadboard $449,00 

The  Silver  Ouadboard $239.00 

Expanded  Ouadboard $179,00 

Liberty $309.00 

QuadSprint $499.00 

QuadLink $399.00 

QuadColor $199.00 

QuadPoard-AT $399.00 

B600  E.G.A.  card $399.00 

STB 

EGA  Plus $379.00 

TECMAR 

Captain  -  64 , $199.00 

Graphics   Master .....,...,..$469,00 

VIDEO-7 
EGA $399.00 

/sr 

Multi  I/O  (Apple  II) $149.00 

DIGITAL  DEVICES 

Ape  Face  (Atan) $49.99 

U-Print  A  (Alart) $54.99 

U-A16/Buller  (Atari) $74.99 

U-Caii  Interface  (Atari),.... $39,99 

y-Print  C  (C64) $49,99 

P-16  Print  Buffer $74.99 

U-Pnnt  16  apple  lie $89.99 

MICRO  R&D 

Apple  He  Parallel $49.99 

Kaypro  2000  Parallel S49.99 

C64n28 $59.99 

3|Ofongefnkfo 

Giappler  CD  (C64) $89,99 

Grappler  Plus  (He.  lie) $89.99 

Grappler  C  (llc| $89.99 

Grappler  ISK  (lie,  II-I-) $139.00 

Graphicard $69.99 

Serlall  Card .....$99.99 

MicrobuHer  11+  64K $169.00 

Microfazer , from  $139.00 

Efazer  (Epson) ..from    $79.99 


IBM  PC  SYSTEMS 

Conflsurad  to  your  spvcHlciitlonk 

Call  for  Best  Price! 

IBM-PC,  IBM-XT,  IBM-AT 

Safari  (7300),.^, CALL 

6300 CALL 

corona 

PPC400  Dual  Portable $1289.00 

PPCXT  10  meg  Portable $1989.00 

PC40022  Dual  Desktop $1389.00 

PC400-HD2  10  meg $1989.00 

ITT  X-TRA  I™ 

256K,  2  Drive  System CALL 

256K,10  meg  Hard  DnvB  System  CALL 
XP5,  20  meg CALL 

KP-2000  Portable CALL 

Kaypro  PC CALL 

IBM  CLONE 

640K  MB-256  installed,  150  Watt  Power 
Supply,  XT  Keyboard.  3G0K  Floppy.  20 
Meg  Hard  Drive — S999.00 


Sperry-AT as  low  as  $1749,00 

Sperry-IT as  low  as  $2699.00 

Call  for  Specific  Configuration! 
All  Models CALL 


PC.13S  Series,  PC-148  Series,  PC-158 
Series,  PC-160  Series,  PC-171  Series. 
AT-200  Series CALL 


Video  300A  Amber $129.00 

Video  310A  Amber  TTL $159.00 

410  TTL  Amber  or  Green CALL 

Color  600  Hi-Res.  RGB $399.00 

Color  722  Dual  Mode $529.00 

Color  725 CALL 

Color  730 CALL 

MAGNAVOX 

515   RGB/Composite. $289,00 

613  TTL  Green., S99.S 

623  TTL  Amber $99.99 

NEC 

JB127DG/1275A (ea.)  $99.99 

JB12e0G  TTL  Green $129.00 

JB1286A  TTL  Amber $129.00 

JC1401  Multi  Sync  RGB CALL 


PHINCODN 


MAX-12  Amber $179,00 

HX-9  9"  RGB S469.00 

HX-9E  Enhanced $519.00 

HX-12  12"  RGB $469.00 

HX.12E  Enhanced $559.00 

SR-12  Hi-Res $599.00 

SR-12P  Prolessional $699.00 


QLW3W1I 


8400  Ouadchrome  I $499.00 

8410  Ouadchrome  II. $339.00 

8420  Araberchrome $179.00 

8500  Quad  Screen $1449.00 

115  12"  Green $119.00 

116  12"  Amber. $129.00 

121  TTL  Green $139.00 

122  TTL  Amber $149.00 

220  14"  Color  Composite $179.00 

620  640x200  RGB $439.00 

630  640x200  RGB $489.00 

640  720x400  RGB $539.00 


m 


M:  V 


ZVM  1220  Amber $99.99 

ZVM  1230  Green $99.99 

ZVM  1240  IBM  Amber $149.00 

ZVM   135  RGB $459.00 

ZVM  1330  RGB $459.00 

ZVM  1360  RGB  CALL 

ZVM  1380  E  G  Comp CALL 
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icate  Maker: 

Because  accomplishments  deserve  to  be  recognized 


Offer  Congratulations! 
Say  Thanks!  Have  Fun! 

Giving  someone  a  certificaie  is  a  wonderful 
way  to  recognize  an  outstanding  actiieve- 
ment.  It's  also  a  perfect  way  to  tiave  a 
little  fun. 

Certificate  Maker  gives  you  over  200 
professionally  designed  certifi- 
cates. From  strictly  official  to  fun  and 
witty,  tliere's  somettiing  for  everyone  and 
every  occasion.  So  you  can  surprise  a 
family  member,  praise  a  student,  applaud 
an  attilete  and  honor  an  einployee  withi 
great  looking  certificates.  And  each  one 
will  be  as  personal,  professiottal  and 
special  as  you  ctioose. 


Personalized  certificates 
in  minutes. 

Simply  ctioose  a  certificate,  select  a 
iJorder,  type  your  message;  add  a  date  and 
signature,,,  ttienprintllt'sttiat  quick 
and  that  easy 

You  can  even  create  a  name  file  and 
automatically  personalize  certificates  for 
everyone  in  your  class 
or  dub! 


Over  200  exciting 

Certificates,  Awards, 

Diplomas,  attd  Licenses. 
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Editor's  Notes: 


The  recent  Summer  Consumer 
Electronics  Show  was  both  in- 
teresting and  disappointing. 
Last  year  at  this  time,  the  indus- 
try was  reeling  from  a  tremen- 
dous downturn  in  sales  growth, 
and  the  resulting  shakeout  had 
otherwise  stable  vendors  de- 
scribing those  times  as  the  end 
of  the  entire  personal  computer 
industry.  A  year  later,  we're  still 
here,  and  the  doom  and  gloom 
forecasters  have  retrenched. 
We're  a  wiser,  more  mature,  and 
perhaps  more  stable  industry, 
and  the  attitude  among  the  ex- 
hibitors at  the  show  was  much 
more  upbeat.  We  heard  talk  of 
steadily  improving  sales,  enthu- 
siasm for  new  products,  and  a 
better  holiday  season  on  the  ho- 
rizon. We  also  heard  a  general 
level  of  enthusiasm  for  the  hard- 
charging  Atari  Corporation,  and 
a  more  specific  level  of  disap- 
pointment at  the  Commodore 
showing.  Atari  had  a  large  and 
impressive  booth,  impressive  in 
that  it  contained  dozens  of 
smaller  exhibits  where  indepen- 
dent vendors  demonstrated 
software  for  the  ST  series.  Visi- 
tors thus  immediately  encoun- 
tered a  tremendous  amount  of 
activity  encompassed  in  a  group 
of  highly  supportive  people. 

The  Commodore  appear- 
ance evoked  a  mixture  of  con- 
cern and  amazement.  Remem- 
ber, we're  talking  about  a 
company  here  with  an  active, 
enthusiastic  installed  base  of  lit- 
erally millions  of  computers. 
We're  talking  about  a  computer 
series  called  the  64  that  just 
keeps  going,  the  128  with  a  suc- 
cess record  that  we  suspect  even 
impresses  Commodore,  and  the 


Amiga.  One  of  the  most  techno- 
logically superior  computers  on 
the  market,  the  Amiga  continues 
to  suffer  at  the  hands  of  the 
superior  marketing  attack  of  the 
Atari-led  Tramiels. 

Commodore  continues  to 
insist  that  the  Amiga  is  a  busi- 
ness machine.  One  must  assume 
that  this  is  the  reason  none  was 
present  at  CES.  In  the  Commo- 
dore suite,  only  64s  and  128s 
were  visible.  It  was  simply 
amazing.  And  very  quiet  when 
we  were  there.  The  seeming 
lethargy  in  market  positioning 
that  has  stricken  Commodore 
since  the  introduction  of  the 
Amiga  is  one  of  the  most  shock- 
ing turnabouts  we've  witnessed 
in  the  modern  history  of  this 
industry.  One  wonders  whether 
the  bankers  have  begun  to  call 
the  strategic  shots  at  Commo- 
dore. 

We  think  that  it  is  impor- 
tant to  this  industry  as  a  whole 
that  Commodore  is,  and  contin- 
ues to  be,  a  viable  player.  Do  not 
misunderstand.  We  saw  nothing 
at  CES  that  says  it  is  not  a  viable 
company.  We  simply  question 
the  wisdom  of  its  continued  re- 
fusal to  open  up  the  Amiga  mar- 
ket. Obviously  such  a  decision  is 
Commodore's,  not  ours,  and  ob- 
viously we're  on  the  outside,  but 
one  can  only  marvel  at  the  con- 
tinued growth  and  success  of 
Atari  and  the  relative  demise  of 
the  Amiga. 

Last  summer  this  time,  both 
the  ST  and  the  Amiga  were 
launched  from  an  installed  base 
of  zero.  Now,  as  we  conclude 
the  first  year  of  product  deliv- 
ery, we  find  the  ST  with  an  in- 
stalled base  of  roughly  ten  times 


that  of  the  Amiga.  Not  a  very 
stirring  record.  During  this  one- 
year  period,  the  ST  has  grown, 
evolved,  expanded  to  include 
the  1040,  undergone  in  Tramiel- 
like  fashion  a  predictable  series 
of  aggressive  price  cuts,  expand- 
ed marketing  outlets,  etc.  We've 
seen  it  all  happen  before  with 
the  VIC  and  the  64,  but  it's  still 
quite  impressive  when  it  works. 
Contrast  with  this  the  con- 
current introduction  of  the 
Amiga.  It  was  categorized,  or 
defined,  as  a  business  machine. 
Its  prices  have  changed  only 
minimally.  It  has,  to  put  it  po- 
litely, withered.  As  we  said,  we 
think  this  industry  needs  Com- 
modore, and  it  needs  the  vision 
and  direction  that  a  Commodore 
can  help  provide.  We  do  not 
want  it  to  be  too  late.  Maybe  if 
you  gentlemen  and  ladies  would 
just  nudge  the  Amiga  a  little  bit 
toward  the  consumer  market, 
you'd  be  pleasantly  surprised. 
Perhaps  a  price  cut  here,  a  mar- 
ket incursion  there.  You  get  the 
picture.  You've  got  millions  of 
users  out  here  looking  to  you  for 
technological  leadership. 
Thanks.  © 


Robert  C.  Lock 
Editor  in  Chief 
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Flight  Simulator  II 

Scenery  Disks 

The  Challenge  of  Accomplished  Flight 

With  a  realism  comparable  to  (and  in  some  ways  even  surpassing) 
$100,000  aircraft  flight  simulators,  Flight  Simulator  II  includes  full 
flight  instrumentation  and  avionics,  and  provides  a  full-color  out-the- 
window  view.  Instruments  are  arranged  in  the  format  standard  to 
modern  aircraft.  All  the  radios  needed  for  IFR  flight  are  included. 
Front,  rear,  left,  right,  and  diagonal  views  lei  you  look  in  any  direction. 
Program  features  are  clearly  documented  in  a  96-page  Pilot's  Operat- 
ing Handbook. 

For  training  in  proper  flight  techniques.  Flight  Simulator  il  includes 
another  96-page  instruction  manual,  compiled  by  two  professional 
flight  instructors  with  over  8.000  hours  flight  time  and  12,000  hours 
of  aviation  teaching  experience.  You'll  learn  correct  FAA- 
recommended  flight  procedures,  from  basic  aircraft  control  through 
instrument  approaches.  To  reward  your  accomplishments,  the 
manual  even  includes  a  section  on  aerobatic  maneuvers. 


The  Realism  and  Beauty  of  Flight 

Go  sight-seeing  over  detailed,  realistic  United  States 
scenery.  High-speed  graphic  drivers  provide  an 
animated  out-the-window  view  in  either  day,  dusk,  or 
night  flying  modes. 

Flight  Simulator  II  features  over  80  airports  in  four 
different  scenery  areas:  New  York,  Chicago,  Seattle, 
and  Los  Angeles.  Six  additional  Scenery  Disks  covering 
the  entire  Western  half  of  the  United  States  are  now 
available  in  IBM  and  C64/I28  disk  formats. 


Apple  and  Atari  versions  will  be  released  soon  Each  disk  covers  a 
geographical  region  of  the  country  in  detail,  and  is  very  reasonably 
priced. 

The  Pure  Fun  of  "World  War  I  Ace" 

When  you  think  you're  ready,  you  can  tost  your  flying  skills  with  the 
"World  War  I  Ace"  aerial  battle  game.  This  game  sends  you  on  a 
bombing  run  over  heavily-defended  enemy  territory.  Six  enemy 
fighters  will  attempt  to  engage  you  in  combat  as  soon  as  war  is 
declared.  Your  aircraft  can  carry  five  bombs,  and  your  machine  guns 
are  loaded  with  100  rounds  of  ammunition. 

See  Your  Dealer.  Flight  Simulator  II  is  available  on  disk  for  the 
Apple  II,  Atari  XL/XE.  and  Commodore  64/128  computers  for 
$49.95.  Scenery  Disks  for  the  C64  and  IBM  PC  (Jet  or  Microsoft 
Flight  Simulator)  are  $19.95  each.  A  complete  Western  U.S.  Scenery 
six-disk  set  is  also  available  for  $99,95.  For  additional  product  or 
ordering  information,  call  (800)  637-4983. 

Apple  II  B  .1  iradi-mirl.  of  Apple  Computer.  Inc. 
'  "'    rt  irndcmDiks  of  Atan  Corp 
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Another  Great  Simulation  from  Sid  Mder  - 
Author  ofF-15  Strike  Eagle  wsma^m^^ 

Now  he  takes  you  from  the  cold,  thin  air  and  limitless  space  ofF-15  Strike  Eagle  down  into 
the  dark  depths  of  the  Pacific  Ocean  inside  an  American  World  War  II  submarine  for  a 
realistic,  action-filled  simulation  ~    'j^ 
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Thrill  to  the  initial  sighting  of  the 
enemy's  strike  force  in  your  peri- 
scope as  their  ships  come  into  your 
range.  But  watch  out  —  the  enemy's 
escorts  have  just  sighted  you.  You're 
the  hunter  —  but  suddenly  —  you've 
become  the  huntedl 

As  Commander,  you  must  sink  their 
ships  and  keep  your  submarine  from 
being  destroyed  —  if  you  can.  Will  you 
select  a  quiet  patrol  sector  in  the 
Marianas  Islands  or  choose  the 
dangerous  waters  off  the  coast  of 
Japan?  Is  a  submerged  daylight 
periscope  attack  t>est  or  do  you 
charge  in  on  the  surface  at  night 
using  only  radar  bearings  to  guide 
you?  Do  you  fire  a  spread  of  your  pre- 
cious torpedoes  or  can  you  close  the 
range  and  pick  off  the  enemy  with  a 
single  torpedo  shot?  These  decisions 
and  many  more  are  yours  to  make  as 
you  take  your  place  among  the  elite 
ranks  of  the  SILENT  SERVICEI 

It's  exciting  —  and  it's  fiin.  It's 
another  great  Micro  Prose  simulation 
—  and  it's  called  SILENT  SERVICE. 

Look  for  it  now  on  your 
dealer's  shelves. 
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Try  These  Other 
Real  Ufe  Simulations 


FIVE  AUTHENTIC 
BATTLE  STATION  SCREENS 


Si^ent  Service  is  available  tor  Commodore  64/1 2fi, 
Apple  II  Famify,  Atari  XL7XE.  IBM  PC/PC  Jf. 
computers  for  a  suggested  retail  of  only 
$34.95.  Available  soon  tor  Macintosh  for  a 
suggested  retail  o(  only  S39.95.  Call  or 
write  for  more  infomiatlon  or  MCA/ISA  orders. 


COMWODOflE.  APPtE.  ATAPJ.  IBM. and  MACINTOSH, 
ore  iegB(pi?C  tJUemArk^otCorrvTuQcKf!'  Bi&rt'ie«s  Inc.. 
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Photo  couriHy  BaHmort  MvtUme  Museum 


Dar^  Attack  Helicopter 
Action  in  Ihe  AB^  Apache! 


mrc  ii  )aif  own  persxiaf  je£! 


You  are  in  ovrimard  — 

tortti  Afrta  1940-1M2 
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Readers  Feedback 


The  Editors  and  Readers  of  COMPUTE! 


If  you  have  any  questions,  comments,  or 
suggestions  you  would  like  to  see  ad- 
dressed in  this  column,  write  to  "Readers' 
Feedback,"  COMPUTE!,  P.O.  Box  5406, 
Greensboro,  NC  27403.  Due  to  the  volume 
of  mail  we  receive,  we  regret  that  we 
cannot  provide  personal  answers  to  tech- 
nical questions. 


Assemblers  And  Monitors 

I  am  a  little  confused  about  the  differ- 
ence between  an  assembler  and  a  ma- 
chine  language   monitor.   Would   you 
please  explain  the  functions  of  each? 
Adam  C.  Stuart 

Simply  put,  an  assembler  is  a  program 
designed  for  one  specific  purpose — help- 
ing you  write  machine  language  pro- 
grams. A  monitor  can  he  used  for  that 
purpose,  too,  but  can  also  perform  other 
memory-management  tasks.  Most  pro- 
grammers use  an  assembler  for  writing 
long  ML  programs  and  a  monitor  for  writ- 
ing short,  experimental  routines  or  debug- 
ging the  code  produced  by  an  assembler. 

To  illustrate  the  difference,  let's  say 
that  you  have  a  short  machine  language 
program  beginning  at  location  49152 
(SCOOO)  on  the  Commodore  64.  A  monitor 
allows  you  to  examine  the  contents  of  any 
memory  location.  If  you  type  M  COOO 
COOCfrom  the  monitor,  the  following  dis- 
play might  appear: 

:C000    A9  42    20    06    CO  60    20    D2 
:C008    FF    20    D2  FF   60    00    00    00 

This  memory  display,  like  other  mon- 
itor output,  is  in  hexadecimal  (base  16) 
notation.  The  numbers  in  the  leftmost 
column  are  memory  addresses;  the  num- 
bers to  the  right  show  the  actual  contents 
of  each  successive  location.  Unless  you're 
very  familiar  with  hex  notation  and  the 
6502  instruction  set,  it's  difficult  to  un- 
derstand the  program  in  this  form.  As  a 
convenience,  the  monitor  can  translate 
machine  language  instructions  from  a  se- 
ries of  raw  numbers  into  more  descriptive 
mnemonic  labels.  This  process  is  called 
disassembly.  Here's  how  a  monitor 
would  disassemble  the  numbers  seen  in 
the  display  above: 

,CO0O    A9       42  LDA    #$42 

,C0Q2    20        06    CO  JSR     $C0a6 
,C005    60  RTS 


,C006  20  D2  FF  JSR  $FFD2 
,C009  20  D2  FF  JSR  $FFD2 
,COOC  RTS 

Each  three-letter  mnemonic  stands 
for  a  single  ML  instruction.  In  this  ex- 
ample, the  LDA  (LoaD  A)  instruction 
loads  the  ASCII  value  for  the  letter  B  (hex 
$42)  into  the  computer's  A  register,  also 
called  the  accumulator.  The  JSR  (Jump  to 
SubRoutine)  instruction  calls  a  subrou- 
tine, much  like  GOSUB  in  BASIC.  RTS 
(ReTum  from  Subroutine)  terminates  a 
routine,  much  like  RETURN  in  BASIC. 

The  converse  of  disassembly  is  as- 
sembly, which  lets  you  write  a  program 
by  typing  in  mnemonics  rather  than  num- 
bers. To  assemble  the  first  line  of  the 
above  program,  for  instance,  you  would 
type  this  line  into  the  machine  language 
monitor: 
A    COOO    LDA    #$42 

This  puts  the  numbers  $A9  and  $42 
into  memory  locations  $COO0  and  $C001, 
where  the  computer  interprets  them  as 
LoaD  A  with  $42. 

In  addition  to  memory  display,  disas- 
sembly, and  assembly,  a  monitor  can  per- 
form other  general  tasks  such  as  moving 
the  contents  of  one  memory  area  to  anoth- 
er area,  filling  memory  with  a  certain 
value,  saving  and  loading  an  area  of  mem- 
ory to  tape  or  disk,  and  so  forth.  Monitors 
are  so  useful,  in  fact,  that  several  comput- 
ers, including  the  Commodore  PET,  Apple 
11,  and  Commodore  128,  include  one  as  a 
built-in  feature. 

An  assembler,  as  the  name  implies, 
is  intended  to  do  only  one.job — assemble 
an  ML  program  from  mnemonics.  Since  it 
usually  can't  disassemble  the  contents  of 
memory,  do  memory  moves,  etc.,  an  as- 
sembler is  less  versatile  than  a  monitor. 
And  programming  with  an  assembler  re- 
quires two  steps  instead  of  one.  First  you 
write  a  text  file  containing  all  the  program 
instructions;  this  file  is  called  the  source 
code.  Then  you  run  the  assembler,  which 
translates  the  source  code  into  executable 
object  code.  At  first,  the  assembler 
sounds  more  cumbersome  to  use.  But  ex- 
cept for  very  short  programs,  it's  consider- 
ably more  convenient  than  a  monitor.  To 
illustrate,  here  is  what  the  source  code  for 
this  program  might  look  like  (this  example 
is  written  in  a  format  for  the  Commodore 
64  PAL  assembler;  other  assemblers  are 
very  similar): 


100  sys  700 

110  .opt  p4 

120  •=49152 

130  letter  =  66 

140  chrout  =  $ffd2 

150  ;  print  Tj'  twice 

160  Ida  #Ietter 

170  jsr  print2 

ISO  rts 

190  print2  =  • 

200  jsr  $ffd2:JBT  $tid2 

210  rts 

220  .end 

This  assembler  lets  you  write,  save, 
and  reload  the  ML  source  code  as  if  it  were 
a  BASIC  program,  using  sequentially 
numbered  program  lines.  (Other  assem- 
blers provide  similar  functions.)  Just  as  in 
BASIC,  you  can  combine  more  than  one 
statement  on  a  single  line  (see  line  200). 
Descriptive  names  can  be  given  to  con- 
stants (line  130),  variables,  ROM  routines 
(140),  and  memory  locations  within  the 
program  itself  (190).  Assemblers  also  per- 
mit more  flexibility  of  expression  than 
monitors:  Usually,  decimal  and  hexadeci- 
mal numbers  can  be  used  interchangeably, 
and  the  assembler  can  evaluate  strings 
and  complex  expressions  as  well  In  this 
program,  for  instance,  you  can  replace 
LDA  ULETTER  with  LDA  #$42,  LDA  #66, 
LDA  #"B",  or  even  LDA  m+6'10). 

The  ability  to  use  labels  makes  well- 
written  assembler  code  much  more  read- 
able than  a  monitor  disassembly.  The 
instruction  JSR  PR1NT2,  for  instance,  is 
more  informative  than  JSR  $C006.  Labels 
also  eliminate  the  need  for  tedious  address 
calculations  and  simplify  the  process  of 
relocating  a  program  from  one  area  of 
memory  to  another.  When  writing  this 
program  for  an  assembler,  you  don't  need 
to  know  where  the  routine  PR1NT2  will 
actually  end  up  in  memory;  the  assembler 
handles  such  details  for  you  automatical- 
ly. With  a  monitor,  on  the  other  hand,  you 
need  to  calculate  the  actual  address  of  the 
subroutine  before  you  can  type  in  the  JSR 
instruction  that  calls  it.  To  move  this 
program  from  location  49152  to  24576, 
you  would  simply  change  the  origin  state- 
ment in  line  120  to  *=24576  and  reassem- 
ble the  code.  The  assembler  automatically 
adjusts  everything  to  fit  the  new  location. 

Even  greater  flexibility  is  offered 
through  pseudo-ops  (pseudo-operations), 
which  control  various  assembler  func- 
tions. For  instance,  the  .OPT  pseudo-op 
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Use  The  brains^ur  Apple 
Wasn'tBwinWth. 


Right  at  your  fingertips 
in  CompuServe's  Apple* 
Forums. 

Join  the  CompuServe  Apple  II  and  III 

Forum  to  swap  everything  from  tall  tales 
to  stiort  cuts  with  other  users,  and  explore 
thousands  of  classic  programs  stockpiled 
since  1979. 

Swap  programs  and  files  with  fellow 
Mac  owners  in  our  Macintosh"  Users 
Forum.  Questions?  You'll  get  answers 
from  the  experts  here! 

Visit  the  Macintosh  Developers 
Forum.  Get  updates  to  the  "Inside 
Macintosh  Software  Supplement  r  Interact 
with  the  Mac  "team"  in  Cupertino. 

The  Apple  User  Groups  Forum, 
supported  by  Apple  Computer;  unites 
cfficers  of  Apple  user  groups — "ambassa- 
dors" for  hundreds  of  thousands  of  Apple- 
active  enthusiasts  worldwide. 

Easy  access  to  free  software. 

•  Download  First-rate,  non-commercial,  user- 
supported  software  and  utility  programs. 

•  Take  advantage  of  CompuServe's 


inexpensive  weeknight  and  weekend  rales 
(when  Forums  are  most  active,  and  standard 
online  charges  are  just  !0C  a  minute). 

•  Go  online  in  most  major  metropolitan  areas 
with  a  local  phone  call. 

•  And  receive  a  $25.00  Introductory  Usage 
Credit  with  purchase  of  your  CompuServe 
Subscription  Kit. 

biformation  you  simply  can't  find 
anywhere  else. 

Use  the  Forum  Message  Board  to  send 
and  receive  electronic  messages,  and  pose 
specific  questions  to  Apple  owners. 

Join  ongoing,  real-time  discussions 
in  a  Forum  Conference — vnth  Apple 
luminaries  like  Bill  Atkinson,  Doug  Clapp, 
Dan  Cochran,  Jean- Louis  Gassee,  Mark 
Pelczarski,  John  Sculley  and  Steve 
Wbzniak. 

Search  Forum  Data  Libraries  for  free 
software,  user  tips,  transcripts  of  previous 
CompuServe  online  conferences 
and  more. 

Enjoy  other  useful  services  like: 

•  Popular  Computer  lHagazines — 

electronic  editions,  for  your  reading  pleasure. 
Including  Apples  Online,  which  reprints 


articles  from  leading  user  group  newsletters 
nationwide  and  other  Apple-related 
publications. 

•  Other  CompuServe  Forums — support- 
ing Jazz"  and  other  LOTUS^  products. 
Microsoff^,  MicroPro*,  Borland  Interna- 
tional^ Ashton-Tatdf  and  other  software. 
Also  Fbscal,  Basic,  C,  forth.  Assembly  and 
other  programming  languages. 

All  yoo  need  is  your  Apple  computer 
and  a  modem ...  or  almost  any  other 
personal  computer. 

To  buy  your  Subscription  Kit,  see  your 
nearest  computer  dealer  Suggested  retail 
price  is  $39.95.  To  receive  our  free  bro- 
chure, or  to  order  direct,  call  800-848-8199 
(in  Ohio,  call  614-457-0802).  Ifyou're  al- 
ready a  CCimpuServe  subscriber,  type  GO 
MAUG  (Micronetworked  Apple  Users 
Group)  at  arr/ !  prompt  to  see  what  you've 
been  missii^ 
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5000  Arlington  Centre  8ivd.,  Columbus,  Ohio  43220 

800-848-8199 
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(line  110)  tells  the  assembler  where  to 
send  its  output.  By  changing  this  instruc- 
tion you  can  send  output  to  memory,  a 
disk  file,  the  screen,  or  a  printer.  Assem- 
bling to  a  printer  is  particularly  useful  for 
making  documentation,  since  the  output 
includes  everything  you  would  see  in  a 
monitor  disassembly  (addresses,  opcodes, 
and  mnemonics)  as  well  as  all  the  com- 
ments and  so  forth  contained  in  the  as- 
sembler source  file. 

Other  assembler  pseudo-ops  let  you 
perform  more  advanced  operations  such 
as  a  conditional  assembly,  which  can 
include  different  segments  of  code  (per- 
haps specific  to  various  computers)  in  the 
assembly  only  when  certain  IF  tests  are 
satisfied.  For  long  programs,  a  linked  as- 
sembly allows  you  to  assemble  two  or 
more  separate  source  files  into  a  single 
object  file.  The  latter  method  was  used  to 
assemble  the  SpeedScript  word  proces- 
sor, since  the  source  code  for  that  program 
is  too  long  to  fit  in  the  computer's  memory 
all  at  once. 


Atori  BASIC  Errors 

Only  recently  have  I  become  obsessed 
with  home  computers.  As  a  novice,  1 
decided  to  start  with  an  Atari  400  (a 
1982  model,  1  believe)  and  a  cassette 
recorder.  After  many  hours  spent  typ- 
ing in  your  programs,  1  was  constantly 
rewarded  with  error  messages.  1  finally 
discovered  that  the  BASIC  cartridge  ac- 
companying the  computer  had  since 
been  revised  twice.  Not  being  able  to 
locate  the  revision  C  cartridge  in  Dallas, 
I  wrote  Atari.  No  answer  yet.  Can  you 
provide  any  insight?  Also,  is  the  400 
capable  of  using  a  disk  drive,  or  am  I 
stuck  with  tape? 

Tom  Rowan 

It's  true  that  Atari  BASIC  has  been  re- 
vised twice  since  your  Atari  was  made, 
but  it's  unlikely  that  this  is  the  source  of 
your  problems.  The  two  revisions- 
known  as  revision  B  and  revision  C — 
mainly  fix  bugs  in  the  original  Atari 
BASIC  cartridge.  These  bugs,  however, 
don't  cause  spurious  error  messages. 
Usually  they  either  lock  up  the  computer 
entirely  or  mangle  text  strings.  Your  error 
messages  are  almost  certainly  due  to  mis- 
takes in  the  programs,  not  problems  with 
your  BASIC. 

You  don't  say  whether  the  error  mes- 
sages appear  when  you're  typing  the  pro- 
grams or  running  the  programs.  Atari 
BASIC  is  one  of  the  few  BASIC  languages 
that  has  instant  syntax  checking,  so  if  you 
get  an  error  immediately  after  typing  a 
line  and  pressing  RETURN,  it  usually 
means  that  a  BASIC  command  was  mis- 
typed, a  parenthesis  was  omitted,  or  the 
command  is  being  used  improperly.  Ex- 
amine the  line  carefully  for  any  typos.  If 
you  can't  find  any,  refer  to  the  Atari 


BASIC  Reference  Manual  to  see  if  the 
command  usage  is  legal.  For  example,  the 
statement  A =CHR$(A$)  generates  an  er- 
ror because  the  CHR$  function  is  intend- 
ed for  concerting  a  number  into  a  string, 
and  the  variable  A$  is  already  a  string. 

Error  messages  encountered  while 
you're  trying  to  run  a  program  are  not  due 
to  syntax  errors.  Usually  they  indicate 
that  the  program  is  asking  the  computer  to 
do  something  impossible.  For  example,  the 
one-line  program  10  GOTO  20  generates 
the  message  ERROR  12  AT  LINE  10.  If 
you  look  up  this  error  number  in  the  Atari 
BASIC  Reference  Manual,  it  means  Line 
Not  Found.  The  command  GOTO  20  tells 
the  computer  to  branch  to  line  20,  but  this 
program  has  no  line  20.  (If  you're  typing 
in  listings  from  COMPUTE!,  you  can  avoid 
most  of  these  mistakes  by  using  our 
"Automatic  Proofreader"  program  found 
in  every  issue.) 

If  you'd  still  like  a  revision  C  Atari 
BASIC  cartridge— worth  having  for  only 
$15 — you  can  order  one  from  Atari.  (Atari 
Corp.,  Customer  Relations,  390  Caribbean 
Drive,  Sunnyvale,  CA  94088.)  Be  patient, 
though.  It  takes  quite  some  time  for  Atari 
to  fill  these  orders. 

The  Atari  400  is  quite  capable  of 
using  a  disk  drive  if  it  has  at  least  1 6K  of 
Random  Access  Memory  (RAM).  Early 
400s  had  only  SK  RAM.  You  can  find  out 
how  much  memory  your  400  has  by  plug- 
ging in  BASIC,  typing  NEW,  and  entering 
PRINT  FRE(O).  A  16K  machine  should 
return  a  number  around  13000.  However, 
we  recommend  at  least  32Kfor  use  with  a 
disk  drive.  A  drive  requires  that  you  load 
a  special  program  called  a  Disk  Operating 
System  (DOS),  and  this  would  consume 
more  than  half  the  available  memory  on  a 
16K  system,  leaving  very  little  room  for 
your  BASIC  program.  The  400  can  be 
upgraded  to  48K  or  64K,  but  the  memory 
board  installation  isn't  trivial  Also,  for  a 
few  dollars  more  you  could  probably  buy  a 
new  800XL  or  65XE. 


Commodore  1 28  Sprites 

I  really  enjoy  programming  with  my 
new  Commodore  128.  However,  using 
sprites  has  left  me  quite  frustrated.  The 
system  guide's  explanation  of  sprites 
doesn't  explain  how  you  can  have  more 
then  eight  sprite  definitions  in  memory. 
Is  there  any  way  to  do  this? 

Matt  Lindquist 

The  Commodore  128  has  room  for  only 
eight  sprite  shapes  in  its  sprite  definition 
area  (memory  locations  3584-4095).  How- 
ever, BASIC  7.0  includes  a  command 
(SPRSAV)  which  lets  you  move  sprite 
shapes  from  strings  into  the  sprite  defini- 
tion area  and  vice  versa.  Here  is  one  form 
of  SPRSAV; 

SPRSAV  1,A$ 


This  command  moves  the  definition 
for  sprite  1  into  the  string  A$.  Now  the 
shape  data  is  stored  for  later  use.  Here's 
the  opposite  form  of  SPRSAV: 

SPRSAV  A$,l 

T/i!s  command  moves  the  shape  data 
stored  in  A$  into  the  definition  area  for 
sprite  1.  Of  course,  you  can  replace  the 
name  A$  with  any  legal  siring  variable 
name. 

The  following  program  draws  16  sine 
waves  on  the  screen,  each  positioned  a 
little  differently,  then  saves  the  sprites  in 
the  array  A$  using  the  SSHAPE  com- 
mand. After  all  the  shapes  have  been 
drawn  and  saved,  sprite  1  is  displayed  on 
the  screen.  SPRSAV  is  then  used  to  flip 
between  the  various  sprite  shapes.  The 
rapid  display  of  shapes  makes  the  sine 
wave  appear  to  move. 

(Note:  The  underlined  up-arrow  (D 
in  line  30  means  to  hold  down  the  SHIFT 
key  while  pressing  the  up -arrow  key.  This 
will  produce  the  pi  (n)  symbol.) 

10    FAST 

20    DIM   A$(16) 

30    FOR   V=0    TO  2*2    STEP   2/3 

40    GRAPHIC    1,1 

50    FOR    X=0    TO    23    STEP     .2:Y= 

INT(lH-10*SIN(X/2+V)):DR 

AW    1,X,Y:NEXT 
60    SSHAPE    A$(SN) ,0,0,2  3,20 
70    SN=SN+1:NEXT    ViGRAPHIC    0 

, 1 : SLOW 
S0    SPRITE    1,1,2,1,1,1,0 
90    HOVSPR    1,120, 80 :MOVSPR    1 

,90  #3 
100    FOR   A=0    TO    15:SPRSAV    A? 
(A) , 1 :F0RT=1T05  jNEXTsNE 
XT    A:GOT0    100 


Apple  Double 
Hi-Res  Graphics 

I'm  having  trouble  understanding  how 
the  double  high-resoluHon  graphics 
mode  works  on  my  Apple  lie.  How 
does  the  computer  store  the  color  and 
dot  information?  Is  it  possible  to  con- 
vert a  normal  hi-res  picture  to  double 
hi-res  format? 

Robert  Colello 

An  Apple  II  that  has  12SK  of  Random 
Access  Memory  (any  Apple  lie,  or  a  lie 
with  extended  80-column  card)  can  dis- 
play pictures  that  have  twice  as  many 
pixels  across  as  normal  hi-res  pictures: 
that's  560  pixels  in  double  hi-res  versus 
the  normal  280-pixel  resolution.  This  dis- 
play mode  works  in  about  the  same  way  as 
80-column  text  mode.  For  every  byte  of 
normal  display  memory,  there's  another 
byte  with  the  same  address  in  another 
bank  of  memory,  called  auxiliary  RAM. 
In  normal  hi-res  mode,  one  byte  of  display 
data  tells  the  computer  how  to  draw  seven 
pixels  on  the  screen.  In  double  hi-res,  14 
dots  can  be  drawn  in  the  same  space  on 
the  screen.  The  first  seven  dots  are  read 
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and  PROVEN 

^"  PERFORMANCE 


The  complete  campiler 
and  development  pack- 
age. Speed  up  your  pro- 
grams 5x  to  3Sx.  Many 
options:  flexible  memory 
management;  choice  of 
compiling  to  macfiine 
code,  compact  p-code  or 
botfi.  '128  version:  <tO  or 
80  column  monitor  output 
and  FAST-mode  opera- 
tion. '128  Compiler's  ex- 
tensive 80-page  pro- 
:|  grammar's  guide  covers 
■'  compiler  directives  and 
options,  two  levels  of 
dp;  ~,:zal  on,  memory  usage,  1/0  handling,  80  column  hi-res  graptiics,  faster, 
higher  precision  math  functions,  speed  and  space  saving  tips,  more.  A  great 
package  that  no  software  library  should  be  without.  123  Compiler    $59.95 

64  Compiler     $39.95 


.-SI'"'  ^ 


For  school  or  software 
development.  Learn  C  on 
your  Commodore  with  our  in- 
depth  tutorial.  Compile  C  pro- 
grams into  fast  machine 
language.  C-128  version  has 
added  features:  Unix™-like 
operating  system;  60K  RAful 
disk  for  fast  editing  and 
compiling  Linker  combines 
up  to  10  modules;  Combine 
Ml  and  C  using  CALL;  51 K 
available  (or  object  code; 
Fast  loading  (8  sec.  1571,  18  sec.  1541);  Two  standard  I/O  librarys  plus 
two  additional  libraries— math  (unctions  (sin,  cos,  sqrt,  etc.)  &  20+  graphic 
commands  (line,  fill,  dot,  etc.).  C-128     $59.95 

C-64        S59.95 


> 


**41 

a  in 


fCHARTPAKr 


Easily  create  professional 
high  quality  charts  and 
graphs  without  programming. 
You  can  immediately  change 
the  scaling,  labeling,  axis, 
bar  filling,  etc.  to  suit  your 
needs.  Accepts  data  from 
CalcResult  and  fjiultiPlan. 
C-128  version  has  3X  the 
resolution  of  the  '64  version. 
Outputs  lo  most  printers. 

0-128       $39.95 
C-e4         $39.35 


PowerPlan 

Otie  of  the  most  powerful  spreadsheets  with  integrated 
graphics.  Includes  inenu  or  keyword  selections,  online  help 
screens,  field  protection,  windowing,  trig  functions  and  more. 
PowerGraph,  tiie  graphics  package,  is  included  to  create 
integrated  graphs  and  charls.  C-64  $39.95 


Technical  Analysis  System  for  the  C-64 
Ada  Compiler  for  the  C-64 
VideoBasic  Language  for  the  C-64 


$59.95 
$39.95 
$39.95 


Remarkably  easy-to-use 
interactive  drawing  pack- 
age for  accurate  graphic 
designs.  New  dimension- 
ing features  to  create 
exact  scaled  output  to  all 
major  dot-matrix  printers. 
Enhanced  version  allows 
you  to  input  via  keyboard 
or  high  quality  lightpen. 
Two  graphic  screens  for 
COPYing  from  one  to  the 
other.  DRAW,  LINE,  BOX, 
CIRCLE,  ARC,  ELLIPSE 
available.  FILL  ob{ect9 
with  preselected  PAT- 
TERNS; add  TEXT;  SAVE  and  RECALL  designs  to/trom  disk.  Define  your  own 
library  of  symbols/objects  with  the  easy-to-use  OBJECT  MANAGEMENT 
SYSTEM-store  up  to  104  separata  objects.  C-12a  $59. 9S 

C-64    $39.95 


Compiler  and  Sofrware 
Developmcm  System 


,+ 


(>Jol  jusi  a  compiler,  but  a 
complete  system  for  develop- 
ing applications  in  Pascal 
with  graphics  and  sound 
features.  Extensive  editor 
with  search,  replace,  auto, 
renumber,  etc.  Standard  J  & 
W  compiler  that  generates 
last  machine  code.  If  you 
want  to  learn  Pascal  or  to 
develop  software  using  Ihe 
best  tools  available-SUPER 
Pascal  Is  your  first  choice. 
C-T2B  $59.95 
C-64       $59.95 


OTHER  TITLES  AVAILABLE: 

COBOL  Compiler 

Now  you  can  learn  COBOL,  the  nrost  widely  used  commercial 
programing  language,  and. learn  COaOL  on  your  64.  COBOL 
is  easy  to  learn  because  its,ea6ViJo  read.  COBOL  Compiler 
package  comes  completcJ&tVtditor,  Compiler,  Interpreter 
and  Symbolic  Debugger.  C-64  $39.95 

Personal  Portfolio  Manager 

Complete  portfolio  management  system  for  the  individual  or 
professional  investor.  Easily  manage  your  portfolios,  obtain 
up-to-the-minute  quotes  and  news,  and  perform  selected 
analysis.  Enter  quotes  manually  or  automatically  through 
Warner  Computer  Systems.  C-64  $39.95 

Xper 

XPER  is  the  first  "expert  systerrf  for  the  C-1 28  and  C-64.  While 
ordinary  data  base  systems  are  good  for  reproducing  facts, 
XPER  can  derive  knowledge  from  a  mountain  of  facts  and  help 
you  make  expert  decisions.  Large  capacity.  Complete  with 
editing  and  reporting.  C-64  $59.95 

C-l*fl  nAd  C.*4  W0  fr»d«ni»rhj  0*  Conmodorf  BuHiwts  Wadim*  Inc. 
Ur<ix  ts  a  radvTiafk  o<  Bfii  UboritorlK 
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Software 


P.O.  Box  7219  Dept,  C8  Grand  Rapids,  Ml  49510  -  Telex  709-101  ■  Phone  (616)  241-5510 

Call  now  for  the  name  of  your  nearest  deaier.  Or  to  order  directly  by  credit  card,  MC,  AMEX  of  VISA  call  (616) 
241-5510.  Other  software  and  books  are  available-Call  and  ask  for  your  free  catalog.  Add  $4.00  for  shipping 
per  order.  Foreign  orders  add  $12.00  per  item.  Dealer  inquires  welcome-1400-f-  nationwide. 


from  auxiliary  memory  and  the  second  set 
comes  from  main  RAM. 

One  double  hi-res  screen  occupies 
16K  of  memory  between  addresses  8192- 
16383  ($2O0O-$3FFF)  in  each  bank.  Unlike 
standard  hi-res,  there's  only  one  double 
hi-res  screen,  so  it's  not  practical  to  create 
animation  with  page  flipping. 

Here  are  some  routines  thai  will  help 
^ou  get  started  with  double  hi-res  graph- 
ics. When  run,  they  create  machine  lart- 
guage  programs  called  DCONVERT  and 
DHGRSAVE.  If  you  load  a  normal  hi-res 
picture  into  hi-res  screen  1  (at  3192)  then 
BRUM  the  DCONVERT  program,  it  con- 
verts the  picture  to  double  hi-res  format 
and  displays  it. 

To  save  this  or  any  other  double  hi- 
res picture  to  disk,  BRUN  the  DHGRSAVE 
program,  then  enter  BSAVE  filename 
,A$2000,L$4000  (replace  filename  with 
the  name  of  your  choice).  The  graphics 
image  is  saved  in  the  same  format  used  by 
Dazzle  Draw  and  other  double  hi-res 
programs.  If  you  save  the  image  file  on  a 
ProDOS  disk,  you  can  then  load  it  with 
Dazzle  Draw  and  modify  the  picture. 

30    FOR  I  =  2457t  TO  I  +  161: 

READ  A:  POKE  i,A:  NEXT 
90    PRINT  CHR«  (4};"ESAVE  DCDN 

VERT, A$t000,L$A2" 
100  DATA  141,126,192,173,94,1 

92, 173,87, 192, 17", 82 
110  DATA  192,  141,  13,  192,  141, £! 

, 192, 173, E0, 192, 1£9 
120  DATA  0,133,254,169,32,133 

,255, 160,0, 177,254 
130  DATA  72,72,41,15,170,139, 

146,96, 141, 163,96 
140  DATA  104,74,74,74,74,41,7 

, 170,189, 146,96 
150  DATA  141,162,96,104,16,11 

, 173, 163,96,201, 128 
160  DATA  173,162,96,42,144,27 

,7B, 163,96, 136, 4e 
170  DATA  10,177,254,8,10,10,4 

0, 106,74, 143,254 
180  DATA  200,173,162,96,44,59 

,96,240,2,9,64 
190  DATA  145,254,173,163,96,4 

1, 127,141,5, 192, 145 
200  DATA  254,141,4,192,200,19 

2,40,208, 168, 165,254 
210  DATA  105,127,133,254,144, 

2,230,255, 165,255,201 
220  DATA  64,208,150,165,254,1 

05,39, 133,254,201, 120 
230  DATA  208,136,96,0,3,12,15 

,48,51,60,63 
240  DATA  192,195,204,207,240, 
243,252,255 

B0  FOR  A  =  4096  TO  A  +  47:  RE 

AD  I:  POKE  A,  I:  NEXT 
90  PRINT  CHR4  (4);"BBAVE  DHGR 

SAVE,A«1000,L«30" 
100  DATA  160,0,132,252,132,25 

4, 169,32, 133,253, 169 
110  DATA  64,133,255,141,1,192 

,173,87, 192, 177,252 
120  DATA  145,254,141,85,192,1 

77,252, 141,84, 192,  145 
130  DATA  252,200,208,239,230, 

253,230,255, 165,233,201 
140    DATA    64,203,229,96 


Saving  PCjr  Screens 

I  have  been  experiencing  trouble  with 
BSAVEing  SCREEN  5  on  my  PCjr.  For 
some  reason,  the  computer  loads  only 
half  the  picture  when  I  try  to  bring  it 
back  into  memory, 

Marc  Ramirez 

The  PCjr  was  designed  to  be  as  compatible 
as  possible  with  the  IBM  PC,  but  there  are 
several  differences,  most  notably  the  lack 
of  DMA  (Direct  Memory  Access)  hard- 
ware that  speeds  certain  operations  on  the 
PC.  On  the  other  hand,  the  PCjr  has  better 
color  graphics  than  the  PC.  Its  SCREEN  5 
mode  gives  you  320  X  200  resolution 
with  16  simultaneous  screen  colors.  These 
don't  represent  fixed  colors  as  in  the  PC- 
compatible  modes.  Instead,  each  of  the  16 
colors  can  be  redefined  to  use  any  of  the  16 
possible  colors,  making  available  the  ad- 
vantages of  color  indirection. 

The  IBM  PC  color /graphics  card 
contains  16K  of  onboard  RAM  for  its  own 
use.  Because  the  RAM  is  part  of  the  color 
card,  there  is  no  conflict  when  both  the 
screen  and  the  microprocessor  want  to 
access  memory  at  the  same  time.  How- 
ever, references  to  addresses  $B8000- 
SBCOOO  are  redirected  to  the  color  card's 
memory,  which  permits  the  microproces- 
sor to  update  screen  memory  and  redraw 
the  screen  directly. 

The  PCjr,  however,  has  no  memory  at 
$B8000.  Screen  memory  is  taken  from  the 
main  store  of  RAM,  usually  at  location 
$18000.  This  explains  why  the  PCjr  is 
slower  than  its  big  brother.  The  graphics 
chips  need  to  access  screen  memory  con- 
stantly while  building  the  screen,  and 
since  this  memory  is  on  the  main  address 
bus,  the  microprocessor  can't  get  at  mem- 
ory to  execute  instructions  while  the 
graphics  chips  are  using  it. 

However,  IBM  realized  that  many 
commercial  programs  try  to  update  the 
screen  by  storing  values  directly  into 
screen  memory  at  IBSOOO.  To  keep  the 
PCjr  compatible  with  these  programs, 
IBM  modified  the  address  circuitry  to  re- 
direct references  to  $B8000  to  the  actual 
screen  memory  area.  However,  only  16K 
of  memory  is  redirected.  Since  a  SCREEN 
5  screen  is  32K  long,  this  explains  why 
you're  seeing  only  half  of  the  picture. 

When  you  use  the  sequence 

DEF  SEG  =  &HB800:BSAVE  "screen"  ,0 
,32768! 

the  first  16K  of  memory  is  saved  from  the 
area  at  $18000,  but  the  rest  of  the  picture 
is  saved  from  $BD0OO-$COFFF,  since  this 
memory  range  is  not  relocated.  This  sec- 
ond half  is  just  whatever  random  bits  are 
read  when  this  nonexistent  memory  is 
saved.  Instead,  you  need  to  use 

DEF  SEG  =  &H1800:BSAVE  "screen",0 
,32768! 

to  save  the  screen,  and 


DEF  SEG  =  &H1800:BLOAD  "screen" 

to  load  it  back.  If  you  try  to  load  images 
saved  from  the  original  range  of  $B8000- 
$C0FFF,  the  second  interleaved  half  of  the 
picture  will  be  garbage.  If  you  use  two  or 
more  graphics  screens,  the  additional 
screens  are  stored  behind  the  first  one  at 
lower  memory  locations.  The  first 
SCREEN  5  screen  would  be  at  $18000,  the 
second  would  be  stored  at  $10000,  and  so 
forth. 


TurboDisk  With 
64  SpeedScript 

Now  that  the  commented  source  code 
for  SpeedScript  is  available  in  book 
form,  1  have  found  ways  to  make  the 
program  work  in  all  kinds  of  situations. 
Here  are  a  couple  of  SpeedScript  modifi- 
cations I  have  found  very  useful. 

Only  two  POKES  are  needed  to 
allow  you  to  use  "TurboDisk"  (the  fast- 
load  utility  published  in  the  April  1985 
issue  of  COMPUTE!)  with  SpeedScript. 
First,  load  in  your  copy  of  SpeedScript 
{version  3.0  or  higher).  Now  enter  these 
POKEs  in  direct  mode  (without  line 
numbers).  Be  sure  to  press  RETURN 
after  typing  each  line: 

POKE  2481,191 
POKE  4938,8 

Now  resave  the  program,  using  a 
different  filename  (perhaps  SPEED- 
SCRIPT.TURB)  to  differentiate  it  from 
the  original.  To  use  the  modified  pro- 
gram, simply  activate  TurboDisk  as 
usual,  then  load  and  run  SpeedScript. 
You'll  find  that  text  files  are  loaded 
much  faster  than  usual.  If  you  exit 
SpeedScript,  you  must  reactivate  Turbo- 
Disk with  SYS  49152. 

A  second  useful  change  has  to  do 
with  word  wrap — SpeedScript's  ability 
to  automatically  move  a  word  down  to 
the  next  line  when  it's  too  big  to  fit  on 
the  current  line.  Word  wrap  is  great  for 
making  text  readable,  but  creates  head- 
aches when  you  need  to  align  the  right 
margin  or  line  up  decimal  points  past 
the  fortieth  column.  The  following  pro- 
gram replaces  SpeedScript's  Verify  com- 
mand (which  I  have  never  used)  with  a 
function  that  toggles  word  wrap  on  and 
off.  Type  in  the  following  program  and 
save  a  copy,  then  run  it  and  follow  the 
prompts  (tape  users  note  the  line 
change  below), 

10  FORQ=49152T049198:READA! 

X=X+A ! NEXT : I FX  <>  641 2THEN 
PRINT "ERROR  IN  DATA": EN 

D 
20  RESTORE:FORQ=49152T04919 

8:READA:P0KEQ,A:NEXT 
30  PRINT "fCLR I (WHT) LOAD  YOU 

R  VERSION  OF" 
40  PRINT "SPEEDSCRIPT  3 . 0  OR 

HIGHER" 
50  PRINT  "THEN  SYS49152  i^ND 
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C-128  AinHOBTAlE 

and  064  BOOKS 


TRICKS  &  TIPS' 


Abd:.u 


Sol:uj.tk. 


Detailed  gjide  pre&«?nt5  tha  128's 
operaiing  sysEem,  explains  graphic 
chips.  Memory  Managemenl  Unit.  SO 
column  graphics  and  commGnled 
ROM  listings.  SOOpp  $1995 


Get  all  the  Inside  miormation  on 
BASIC  7.0.  This  oxhauslivfl  hand- 
book is  compEeta  with  commented 
BASIC  7.0  ROM  listings.  Coming 
SumrTBf'66.  S1995 


Filled  with  info  (or  everyone.  Covers 
80  column  hi-ros  graphics,  win- 
dowing, memory  layout.  Kernal 
routines,  sprites,  software  pro- 
teclion,  autosiarttng.    300pp  S!I9.95 


Insiders'  guide  tor  novice  £  ad- 
vanced users.  Covers  sequential  & 
relative  files,  &.  direct  access  com< 
mands.  Descrit^es  DOS  routines. 
Commented  listings.  S19.95 


Learn  tLJndamentals  of  CAD  while 
developing  your  own  system.  Design 
obfecis  on  your  screen  to  dump  to  a 
printer  Includes  listings  for  '64  with 
Sinnon's  Basic.  30I^P  S19,95 


Thetfchmive        I     /^     r\9 


BASIC  Training  Guide 
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AbjcuslfltllllllSoriware 


OOMMODOflE<l     Oi~l 


CP/M  USER'S  GUIDE 
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gp 


Ahd^ii  i  ifilllitil  .So  f  I  '.V.I  f  u  I 


QHWilCSBOOtl; 

TORTOC       I 

COMMOOOfiEl 


AOTLTTTUKt 
&VME1VRITERS         nil   •Kii': 
HAKDeOOK  FOR        ivttJtj 


PEEKS  _ 

^*^  THE  ?SI     :         ™E 

,^.fe  .._™-....  '^"""^'  "^^ 


Intr^ducnon  to  programing:  problem 
analysrs;  thorough  description  of  all 
BASIC  commanes  wilh  hundreds  of 
examples:  monitor  commanite:  util- 
ities; much  rrwfe.  S16.95 


Presents  dozens  of  programming 
quick-hitters.  Easy  and  useful 
iectin[ques  on  the  operating  system, 
stacks,  zsfo-page,  pointers,  the 
BAStC  interpreter  and  more.    $1 6 .95 


Essential  guide  lor  everyone  inter^ 
ested  in  CP/W  on  the  128.  Simple 
explanation  of  the  operating  system, 
memory  usage,  CP/M  utility  pro- 
grams, submit  fifes  &  rrxire.      $19.95 


ANATOMY  OF  C-64  Insider's  guide  to  the 
'64  internais.  Graphics,  sound,  I/O,  kernal, 
memory  mops,  more.  Complete  commented 


ROM  li&tir>gs. 

ANATOMY  OF  154J 
handbook  on  ^oRp^*x| 
examples  and^lJgiiy^^Q 
154A  ROM  listlnflsr- 


SOOpp  Si  9.95 

e^  DRIVE    Best 

jajns  all.   Many 

ijiiy  commented 

SOOpp     £19.95 


MACHINE  LANGUAGE  0-64  Learn 
6510  code  write  last  programs.  Many  sam- 
ples and  iisiings  (or  complete  assembler, 
monitor.  &  simulator.  ZOOpp    S14.95 

GRAPHICS  BOOK  C-64  -  best  reference 
covers  basic  and  advanced  graphics. 
Sprites,  animation,  Hires,  Multicolor, 
lightpan,  3D-graphics,  IRQ,  CAD.  pro- 
Jeaions,  curves,  more.  SSOpp   £19.95 


TRICKS  &  TIPS  FOR  C>&4  Collection  of 
easy-to-use  techniques:  advanced  graphics, 
improved  dala  Input,  enhanced  BASIC. 
CP/W,mora.  27Spp    St9.95 

1541       REPAIR      &      MAINTENANCE 

Handbook  describes  the  disk  drive  hard- 
ware. Includes  sct^ematics  and  techniques 
to  keep  1541  running.  ZOOpp    $^9.95 

ADVANCED  MACHINE  LANGUAGE 
Not  covered  elsewhere:  -  video  controller, 
interrupts,  timers,  clocks,  I/O,  reaJ  time, 
extended  BASIC,  more.  210pp    S14.95 

PRINTER  BOOK  C-&4/VIC-Z0  Under- 
star>d  Commodore,  Epson-compatble  print- 
ers and  1S20  plotter.  Padded:  utilities;  gra* 
phics  dump;  3D-plol;  commented  MPSSOI 
ROM  listings,  more.  330pp  Sld-d5 


SCIENCE/ENGINEERING  ON  0-64  In 
depth  Intro  to  computers  in  sderce.  Topics: 
chemistry,  physics,  biology,  astronomy, 
electronics. others.  35Cpp  E19.95 

CASSETTE  BOOK  C-64/VIC-20 
Comprehensive  guides  many  sample 
programs.  High  speed  operating  system 
fast  lile  loading  and  saving.  225  pp  $14,95 
IDEAS  FOR  USE  OH  C-&4  Themes: 
auto  expenses,  caJculator,  recipe  file,  stock 
lists,  diet  plan^^e^,  window  advertising, 
others.  Includes  listings.  200pf)  S12.95 

COMPILER  BOOK  C-64/C-12S  AH  you 
need  to  know  about  compilers:  how  they 
work;  designing  and  writing  your  own; 
generating  machine  code.  Witti  working 
ftKampie  compiler.  300pp  SI  9-95 


Advenl^re  Gamewrlter't   Handbook 
Step-by-step  guide  to  designing  and  writing 
your  own  adventure  games.  With  automated 
adventure  game  generator.  ZOOpp    SK.95 

PEEKS  A   POKES   FOR  THE  C-&4 

Includes  in-depth  explanations  of  PEEK^ 
POKE.  USR,  and  other  BASIC  command*. 
Learn  the  'Inside*  tricks,  to  gel  the  most  out 
of  your '&4.  ZOOpp  S14.05 

OptionsE  DIekettes  for  bookft 
For  your  convenience,  the  programs 
contained  in  each  of  our  books  are  avail- 
able on  diskette  to  save  you  lima  entering 
Ihem  from  your  keyboard.  Specify  name  ol 
book  when  ordering.  9i4.95  each 


^mrnn^ 


AbacusHH  Software 


C-12S  and  C-64  ore  trademarks  of  Corrsmodoie  Bu«ir4tf  Mtdnirwt  Inc. 


P.O.  Box  7219  Dept.C8  Grand  Rapids,  Ml  49510  ■  Telex  709-101  -Phone  (616)  241-5510 

Optional  diskettes  available  for  all  book  titles  -  $14.95  each.  Other  books  &  software  also  available.  Call  for  the  name  of  your 
nearest  dealer.  Or  order  directly  from  ABACUS  using  your  MO,  Visa  or  Amex  card.  Add  $4.00  per  order  for  shipping.  Foreign 
orders  add  $10.00  per  book.  Call  now  or  write  for  your  free  catalog.  Dealer  inquires  welcome-over  1400  dealers  nationwide. 


{SPACE ) RUN." 
49152  DATA  162,35,189,12,19 

2 
49157  DATA  157,26,20,202,16 
49162  DATA  247,96,173,219,8 
49167  DATA  201,177,208,17,1 

69 
49172  DATA  169,141,219,8,16 

9 
49177    DATA   32,141,220,8,165 
49182    DATA   197,201,31,240,2 

50 
49187    DATA   96,169,177,141,2 

19 
49192    DATA  8,169,251,141,22 

0 
49197    DATA   8,96 


After  POKEing  a  short  ML  routine 
into  memory,  the  program  instructs  you 
to  load  SpeedScript  (3.0  or  higher),  enter 
SYS  49152,  then  run  SpeedScript.  Try 
toggling  word  wrap  on  and  off  by 
pressing  CTRL-V  (ordinarily  the  Verify 
function). 

If  you  use  tape  instead  of  disk,  you 
may  not  want  to  give  up  the  Verify 
function  but  can  easily  afford  to  live 
without  the  Directory  command,  which 
is  useless  with  tape  anyway.  In  line 
49157  of  the  program,  change  the  26  to 
98.  Then  change  the  checksum  value  in 
line  10  from  6412  to  6484. 

When  you're  satisfied  that  the 
modification  works,  exit  SpeedScript. 
Disk  users  should  enter  POKE  2895,23 
to  change  the  Verify  command  from 
CTRL-V  to  CTRL-W  (for  Word  wrap). 
Tape  users  should  enter  POKE  2898,23 
to  change  the  Directory  command  from 
CTRL-4  to  CTRL-W.  After  that's  done, 
resave  SpeedScript  under  a  new  file- 
name that  reflects  the  change. 

Bruce  S.  Gordon 

Thanks  for  the  suggestions.  Incideniall)/, 
the  penalty  you  pay  for  turboloading  with 
SpeedScript  is  that  available  text  memo- 
ry is  reduced  from  43,445  characters  to 
39,299  characters. 


Improved  Atari  Line  Delete 

Like  many  BASIC  programmers,  I 
usually  number  my  programs  with  an 
increment  of  10.  Often,  however,  after 
editing  and  debugging,  there  is  no  long- 
er any  pattern  to  line  numbering.  This 
short  utility  program  has  a  little  more 
versatility  than  "Line  Deleter  For 
Atari,"  published  in  the  January  1986 
issue  of  COMPUTE!.  As  in  the  former, 
LIST  the  utility  to  disk  or  cassette,  then 
load  your  BASIC  program  and  ENTER 
this  utUity,  Type  GOTO  32700  in  direct 
mode,  then  input  the  beginning  and 
end  range  to  be  deleted.  You  can  now 
delete  only  existing  line  numbers. 
When  the  deletion  is  finished,  press 
RETURN  to  remove  the  utility  from 
your  BASIC  program. 


32700  REM  BLOCK  DELETE  EN 
TER  AND  GOTO  3270O 

32701  TRAP  327131?  "START 
,END"I INPUT  START, E 
N 

32702  ?  CHR«<12S) I X=PEEK { 
138) +PEEK  C 139)  «256 

32703  B=PEEK( 136) +PEEK(13 
7>  (256 1  X=Bi  QQ°>Oi  POS 
ITION  2,2 

32704  LN=PEEK (X)+PEEK(X+1 
)  «256 

32705  IF  UN<START  THEN  X= 
X+PEEK(X+2) : GOTO  32 
704 

32706  IF  LN=32700  THEN  32 
710 

32707  ?  LN: QQ  =  OQ+l 1  IF  QQ  = 
18  THEN  32710 

32708  IF  LN>=EN  THEN  3271 
O 

32709  X=X+PEEK<X+2) : GOTO 
32704 

32710  TRAP  32713:7  "32700 

REM  PRESS  RETURN  T 
0  REMOVE  BLOCK  DELE 
TER":7  "CONT" 

32711  POKE  842, 133 POSITIO 
N  2,0!STOP 

32712  POKE  B42,12iGDT0  32 
700 

32713  ?  CHR* < 125) I POSITID 
N  2,2:F0R  SS=32700 
TO  32714!?  SSsNEXT 
SS)7  "POKE  S42, 12" 

32714  POKE  842, 13iPDSITID 
N  2,0:ST0P 

Gary  Rindosh 

Thank  you  for  the  program. 


Dvorak  Keyboard  For  64 

After  25  years  of  typing  the  "qwerty" 
way,  I'd  like  to  take  advantage  of  a 
Dvorak  keyboard  toggle  included  in  a 
SpeedScript  enhancement  program  for 
the  Commodore  64.  What  resources  are 
available  to  help  me  learn  the  Dvorak 
system?  Are  keyboard  caps  for  the  64 
available  so  that  I  can  cover  up  the 
normal  keys  with  Dvorak  caps?  It's  go- 
ing to  be  hard  giving  up  the  old  system, 
but  everything  I've  heard  about  the 
speed  and  efficiency  of  the  Dvorak  key- 
board makes  me  eager  to  give  it  a  try, 

John  WUlis 

If  your  enhancement  program  can  emu- 
late the  Dvorak  keyboard  within  Speed- 
Script,  then  no  hardware  is  required  to 
convert  from  the  conventional  typewriter 
key  arrangement — often  called  qwerty — 
to  the  Dvorak  scheme.  Many  office  supply 
stores  carry  stick-on  keycap  labels  that 
should  suit  your  needs.  We're  assuming 
that  you  have  a  diagram  which  shows  the 
Dvorak  keyboard. 

The  advantage  of  stick-on  labels  is 
that  you  can  still  use  the  computer  for 
other  purposes  that  don't  involve  a  Dvo- 
rak keyboard.  Most  commercial  software 
and  virtually  all  type-in  programs  in  pub- 
lications like  COMPUTE!  assume  that  you 
have  a  normal  64  keyboard.  If  you  can  find 


or  fabricate  blank  stick-on  labels,  you 
could  divide  each  label  into  two  seg- 
ments— indicate  the  Dvorak  key  on  one 
half  and  the  normal  64  key  on  the  other. 
This  would  allow  you  to  switch  from  Dvo- 
rak to  qwerty  applications  at  will. 

If  you  don't  use  the  computer  for 
anything  other  than  word  processing  and 
decide  to  convert  permanently  to  the  Dvo- 
rak scheme,  you  could  rearrange  the  exist- 
ing keycaps.  This  operation  doesn't 
require  any  special  tools  or  electronics 
expertise.  While  you  have  the  old  keycaps 
off,  you  can  take  advantage  of  the  oppor- 
tunity to  clean  the  keyboard,  too.  Howev- 
er, rearranging  the  keycaps  will  void  any 
warranty  that  may  be  in  effect,  since  you 
must  open  the  case  of  the  computer.  And 
though  the  operation  is  reversible,  you 
should  consider  it  semipermanent  because 
of  the  time  involved  in  switching  the 
keycaps. 

To  rearrange  the  keycaps,  remove  the 
three  Phillips  screws  in  the  bottom  of  the 
computer's  case,  then  gently  separate  the 
two  halves  of  the  case.  Carefully  unplug 
the  two  sets  of  wires  that  join  the  upper 
and  lower  halves,  then  remove  the  eight 
Phillips  screws  that  hold  the  keyboard 
assembly  to  the  upper  half  The  64's  key- 
caps are  held  on  by  friction,  so  you  can 
lever  them  off  using  a  thin-bladed  screw- 
driver or  similar  device.  The  alphanumer- 
ic keycaps  are  all  the  same  size  and  can  be 
interchanged  freely.  Of  course,  you 
shouldn't  disturb  keys  such  as  RESTORE, 
which  serve  a  special  purpose.  While  the 
keycaps  are  off,  you  may  want  to  clean  the 
area  around  each  keyswitch.  In  many 
cases,  cleaning  is  all  that's  needed  to  fix 
keys  that  stick  or  bounce  (repeat  when 
they  shouldn't). 

To  replace  a  keycap,  press  it  gently 
but  firmly  onto  the  shaft  of  the  keyswitch. 
After  all  the  keycaps  are  back  in  place, 
reverse  the  disassembly  procedure:  Screw 
the  keyboard  assembly  back  into  the  upper 
half  of  the  case,  then  replace  the  two  sets 
of  wires  that  join  the  halves.  Finally, 
rejoin  the  two  halves  of  the  case,  turn  the 
computer  over,  and  replace  the  three 
screws  on  the  bottom.  If  you've  never 
performed  the  operation  before,  you 
should  plan  to  spend  a  couple  of  hours 
removing,  cleaning,  and  replacing  the 
keycaps. 

By  the  way,  you  might  be  interested 
to  learn  that  there  is  some  controversy 
surrounding  the  efficiency  claims  for  the 
Dvorak  keyboard.  Most  of  the  frequently 
quoted  statistics  (like  35-50  percent  in- 
crease in  speed  and  90  percent  reduction 
in  finger  travel)  come  from  August  Dvo- 
rak's own  research.  An  independent  in- 
vestigation by  Donald  Olson  and  Laurie 
Jasinski,  published  in  the  February  19S6 
issue  of  BYTE  magazine,  suggests  that 
these  figures  are  inflated.  While  agreeing 
that  the  Dvorak  anangement  is  somewhat 
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Subscribe  to  COMPUTE!  today  through  this 
special  introductory  money-saving  offer,  and 
you'il  be  getting  a  lot  more  than  just  another 
computer  magazine.  That's  because  each  issue 
of  COMPUTE!  comes  complete  with  up  to  20 
all-new,  action-packed  programs. 

Subscribe  now  and  you  can  depend  on  a 
steady  supply  of  high  quality,  fun-filied 
programs  like  Hickory  Dickory  Dock, 
Switchbox,  TurboDisk,  Home  Financial 
Calculator,  Turbo  Tape,  SpeedScript, 
SpeedCalc,  and  hundreds  of  other  educational, 
home  finance,  and  game  programs  the  entire 
family  can  use  all  year  long. 

The  superb  programs  you'll  find  in  each 
issue  are  worth  much,  much  more  than  the 
low  subscription  price. 

And  there's  more  to  COMPUTE!  than  just 
exciting  new  programs.  Month  after  month, 
COMPUTEI's  superb  articles  deliver  the  latest 
inside  word  on  everything  from  languages  to 
interfaces.. .from  programming  to  disk  drives. 

Whether  you're  a  novice  or  an  experi- 
enced user,  COMPUTE!  is  the  magazine  for 
you.  So  subscribe  today.  Return  the  enclosed 
card  or  call  1-800-247-5470  (in  Iowa, 
1-800-532-1272). 

Do  it  now. 
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Commodore  64 

BUSINESS 

SOFTWARE 

A  5-pack  of  most  needed  software 
for  efficient  business  operations! 

General  Ledger 

•  Has  8  general  ledger  options. 

•  Provides  150  charl-o1-accounts. 

•  1500  general  journal  transactions. 
Inventory  Management 

•  Tracking  of  1000  inventory  items. 

•  Maintains  perpetual  invemory  records. 

•  Calculates  use,  reorders,  cost  averaging,  etc. 

Payroll* 

•  Provides  24  different  payroll  functions, 

•  Calculates  payroll  and  tax  deductions. 

•  Ideal  for  SO  employees  or  less. 

Accounts  Receivable/Billing* 

•  Provides  customer  sales,  credit  information, 
printed  statements  and  more. 

•  Handles  11  billing  functions,  150  invoices, 
75  customers. 

Accounts  Payable/Checkwriting* 

•  Combines  tracking  of  vendor  payables  witti  an 
integrated  checkwritjng  system. 

•  fvtaintains  master  file;  provides  invoice  listings. 

•Interfaces  v^ith  General  Ledger  software. 
90-Day  Limited  Factory  Warranty 

Mfr.Ust: '249.75 
ENTIRE  SET  of  5 
Uquidation  Price   .    . 

Hem  H- 1377-7002-066  Ship,  handling:  SS.OO 

NOTE:  Also  available  by  individual  tlUes. 
Phone  for  prices. 

CfSdlt  card  cuitamere  can  Drder  by  phona, 
24  hour!  a  day,  ^^HB  y-x'-^   ^SUKSSl 
7  day*  a  week,        )/^^^  ^'*'T^*^   BSftfll^g 

Toil-Free:  1-800-328-0609 

Satei  outside  the  4a  conliguous  slates  aro  subject  to 
special  condltlonB,  Please  call  or  write  to  Inquim. 


$49 


C.O,M.B.  Direct  Marketing  Corp,  Hem  H-t377 

14605  28th  Ave.  N./Mlnneapoli9,  MN  55441-3397 

Send.. S-Packja)  of  Commodore  64  Buftlneas  Software 

Item  H-1377-7002-066  at  S49  each  plus  $5  each  for  snip, 
tiandling.  (Ivlinnesota  residents  add  6%  sates  lax.  Sorry,  no 
CO.D,  orders. I 

D  My  ctieck  or  money  order  is  enclosed.  (No  delays  in 

processing  orders  paid  by  ctieci^,  ttianks  to  TeleCtieck.) 

Ctiarge:  □  VIS4«    DliflasterCard,    D  American  Express' 
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COMB    Direct  Marketing  Corp. 


Authorized  Liquidator 

14605  28th  Avsnue  North 

Minneapolis.  Minnesota  55441-3397 


more  efficient,  that  article  reports  that  the 
actual  reduction  in  finger  travel  is  less 
than  30  percent.  It  also  :^uotes  a  Universi- 
ty of  California  study  which  concluded 
that  a  speed  increase  of  5-10  percent  was 
more  realistic. 


Automatic  IBM 
Screen  Printing 

Some  time  ago  I  created  a  BASICA 
program  which  allows  me  to  create 
graphics  pictures  much  like  a  graphics 
editor.  The  program  uses  every  graph- 
ics function  in  the  manual,  and  even 
saves  your  work.  But  in  order  to  print 
my  creations  on  the  printer,  I  have  to 
press  Shift-PrtSc.  Is  there  any  way  to 
add  a  Print  Screen  function  to  my 
program? 

William  Green 

Fortunately,  it's  quite  easy  to  call  the 
ROM  BIOS  routine  that  supports  screen 
printing.  The  following  program  fragment 
does  the  trick  by  POKEing  a  liny  machine 
language  program  into  a  reserved  space  at 
the  top  of  BASIC'S  memory  area.  The  Ml 
just  executes  INT5:RETF  to  call  the  Print 
Screen  routine  and  return  to  BASIC.  This 
program  is  adapted  from  COMPUTEI's 
Mapping  the  IBM  PC  and  PCjr,  by  Russ 
Davies. 

When  incorporating  this  routine  into 
your  program,  the  line  with  the  CLEAR 
statement  must  be  the  first  line  in  your 
program.  Otherwise,  any  previously  de- 
fined variables  will  be  erased.  Once  the 
machine  language  is  POKEd  into  memory, 
your  program  can  execute  the  statement 
CALL  PRTSC  to  make  a  printout. 

100    CLEAR    ,«cHFFF0:PRT5C=S.HFFF 

0 
110   DEF   SEGiFOR   X=0   TD   2! READ 

N:PDKE    X+PRTSC,NiNEXT 
120    DATA    !<HCD,tH05,S<HCB 
200   CALL   PRTSC 


Atari  DOS  3.0  Vs.  2.5 

I  have  purchased  an  Atari  1050  disk 
drive  with  DOS  3,0.  I  recentiy  heard 
that  this  DOS  is  no  good,  and  that  I 
should  use  DOS  2.0  or  2.5.  What  is  so 
wrong  with  DOS  3.0,  and  why  shouldn't 
I  use  it?  Is  DOS  2.5  the  best  one  yet  for 
the  1050,  and  where  can  I  get  it? 

Gary  Cerasoli 

Before  getting  to  your  questions,  let's 
briefly  review  the  history  of  Atari  disk 
operating  systems: 

•  DOS  1.0  was  introduced  with  the 
400/800  computers  and  810  disk  drive  in 
1979.  It  was  workable,  but  suffered  from 
some  bugs  and  unimplemented  features. 
Also,  the  entire  DOS  was  always  resident 
in  RAM  (Random  Access  Memory).  Al- 
though this  was  convenient— the  DOS 
menu  appeared  instantly  when  you  typed 


the  DOS  command — if  consumed  too 
much  memory  in  a  period  when  few  peo- 
ple had  more  than  24K  or  32K  of  RAM. 

•  DOS  2.0,  also  known  as  2,0S  (single- 
density),  replaced  DOS  1.0  in  late 
1980/early  19S1.  It  fixed  the  bugs  in  DOS 
1.0,  added  significant  new  features,  and 
conserved  memory  by  keeping  only  part  of 
itself  in  RAM.  The  disk-resident  portion 
of  DOS  2.0  loads  into  memory  only  when 
you  type  the  DOS  command. 

•  DOS  3.0  was  introduced  with  the  dual- 
mode  1050  disk  drive  in  1983.  The  1050 
works  in  the  traditional  Atari  single- 
density  mode  (88K  of  storage  per  disk)  as 
well  as  an  enhanced-density  mode  (127K 
of  storage  per  disk).  DOS  3.0  was  designed 
to  support  the  enhanced-density  mode 
and  to  be  easier  to  use.  But  most  Atari 
users  found  DOS  3.0  to  be  clumsy  and 
inconvenient,  especially  when  swapping 
disks  with  other  people  or  when  mixing 
single-density  and  enhanced-density 
disks.  Although  the  1050  drive  automati- 
cally adjusts  itself  for  either  density,  DOS 
3.0  disks  and  2.0  disks  are  incompatible 
with  each  other. 

•  To  solve  these  problems,  DOS  2.5  was 
introduced  in  1985.  This  numbering 
scheme  sometimes  confuses  people,  since 
2.5  was  released  two  years  after  3.0,  but 
2,5  IS  so  named  because  it  is  closely  relat- 
ed to  DOS  2.0.  In  fact,  the  2.5  menu  is 
almost  identical  to  the  2.0  menu,  save  for 
one  additional  option  (Format  Single).  The 
advantage  of  2.5  is  that  it  works  with  both 
single-  and  enhanced-density  disks  on  the 
1050  drive  as  well  as  single-density  disks 
on  the  older  810  drives.  This  makes  life 
easier  for  people  who  have  both  formats  in 
their  disk  libraries  and  for  those  who  swap 
disks  with  other  users. 

DOS  2.5  is  available  free  from  most 
Atari  dealers  and  user  groups.  It  comes 
with  utilities  for  converting  3.0  files  to 
2.0/2,5  format,  for  customizing  your  copy 
of  2.5,  and  for  automatically  booting  up  a 
RAM  disk  on  the  130XE  computer. 

There's  a  chance  that  2,5  may  be 
superseded  in  the  near  future  by  yet  an- 
other DOS.  Atari  is  thinking  about  intro- 
ducing a  3V2-inch  disk  drive  for  the 
400/800/XL/XE  line,  and  the  much 
greater  capacity  of  this  format  (at  least 
320K  per  side)  would  require  a  completely 
new  DOS  with  support  for  subdirectories 
and  other  advanced  file-management  fea- 
tures. © 


"If  you  know  BASIC  and  want  to  learn 
macliine  language,  this  is  the  place  to  start 
....  Building  on  your  experience  as  a 
BASIC  programmer,  Mansfield  very  gently 
takes  you  through  the  fundam.entals  of 
.machine  language." 

— Whole  Earth  Software  Catalog 

COMPUTE!  Books' 

Best-selling  Machine  Language  Books 


'Understandable' 


-The  New  York  Times 


"Presents  the  machine  language  novice  with  a  v^ry 
good  tutorial  in  simple,  understandable  terms." 

— Antic 

"I  highly  recommend  Machine  Language  for  Begin- 
ners as  your  first  introduction  to  the  world  of 
machine  language,"  — Commodore  Power/Play 


The  LADS  Disk 

LADS,  the  assembler  used  in  The  Second  Book  of 
Machine  Language,  is  available  on  disk  for  only  $12.95, 
This  is  a  great  accompaniment  to  the  book,  saving  you 
hours  of  typing  time  by  providing  the  complete  source 
and  object  programs  for  all  versions  of  the  assembler, 
and  more.  And  LADS  disks  are  specific  to  your  Apple, 
Atari,  or  Commodore  computers. 


Machine  Language 
for  Beginners 

Richard  Mansfield 
Most  commercioi  software  is 
written  in  machine  language  be- 
cause it's  far  faster  and  more 
versatile  than  BASIC.  Machine 
Language  for  Beginners  is  a 
step-by-step  introduction,  In- 
cludes a  simple  assembler,  a 
disassembler,  and  utilities,  to 
help  beginners  write  programs 
more  auickly  and  easily. 
Si  4.95 
ISBN  0-942386-11-6 


Machine  Language  for  Beginners  and  The  Second  Book  of  Machine  Language: 
everything  you  need  to  leorn  machine  language  programming 
on  your  Apple,  Atari,  and  Commodore  personal  computers. 


The  Second  Book  of 
Machine  Language 

Richard  Mansfield 
Ttie  follow-up  to  the  best-selling 
Moc/i/ne  Language  for  Begin- 
ners, this  book  leads  the  pro- 
grammer deeper  Into  the  most 
powerful  and  efficient  program- 
ming techniques  available  for 
personal  computers.  Fully  tu- 
torial, with  easy  step-by-step 
explanations,  the  book  shows 
how  to  construct  significant, 
effective  machine  language 
programs.  Included  is  a  high- 
speed, professional-quality,  la- 
bel-based assembler.  Everything 
that's  needed  for  optimized 
programming  on  the  Com- 
modore 64,  Apple,  Atari.  VIC-20, 
and  PET/CBM  computers. 
S  14.95 

ISBN  0-942386-53-1 
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To  Order:  Call  Toll  Free  800-346-6767  (In  NY  212-887-8526)  or  moil  this  coupon  with 
your  payment  to  COMPUTE!  Books,  P.O.  Box  5038,  F.D.R.  Station,  New  York.  NY  10150. 


The  Second  Book  of  l^achine  Language.  $14.95 

Machine  Language  for  Beginners.  $14.95 

MD5  0/5Ar  (Apple)  $12.95 

MDJOtf*  (Atari)  $12.95 

LADS  Disk  (Commodore),  $12.95 


1  Book  for 

2  Books  for 
LADS  Disk  for 


$14.95 
$25.00 
$12.95 

S 


D  Payment  Enclosed  (check  or  money  order) 

D  Charge    D  MasterCard    O  Visa    0  American  Express 

Acct.  No 

Sig  nature 


Name  _ 
Address . 


City  . 
State  . 


Zip 


NC  residents  add 
4.5%  sales  tax 

Shipping  and  handling 
(S2.00  per  book 
Si. 00  per  disk) 

Total  Paid 

All  ordsffi  must  be  prepaid. 
Please  allow  4-*  weeks  for  delivery. 
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Report  From  The  Summer 
Consumer  Electronics  Show: 


An 
Eight-Bit 

BONANZA 


Selby  Batemon,  Features  Editor 


Forget  any  rumors  you've  heard  about 
weakening  in  the  8-bit  computer 
lines.  The  Summer  Consumer  Elec- 
tronics Show  revealed  plenty  of  new 
software  and  hardware  for  Commo- 
dore, Atari,  Apple,  and  IBM  8-bit  ma- 
chines. Also  on  display  were  scores  of 
new  software  packages  for  the  Atari 
ST  and  a  growing  number  for  the 
Commodore  Amiga.  The  happy  news 
IS  that  both  Commodore  and  Atari  are 
making  efforts  to  extend  the  life  of 
their  popular  8-bit  computers  at  the 
same  time  that  they're  pushing  the 
newer  16-bit  models. 


The  68000-based  Amiga,  ST,  and 
Macintosh  computers  may  be  get- 
ting headlines  these  days,  but  it's 
the  8-bit  machines  which  are  con- 
tinuing to  provide  much  of  the  in- 
come for  manufacturers  and 
excitement  for  millions  of  satisfied 
users. 

Proof  of  that  came  at  the  recent 
Consumer  Electronics  Show  (CES) 
in  Chicago — a  semiannual  show- 
case of  all  the  consumer  electronics 
products  you'll  be  seeing  on  store 
shelves  this  fall  and  winter.  Amid 
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the  newest  high-tech  digital  audio 
players,  3-D  televisions,  videocas- 
sette  machines,  car  stereos,  credit- 
card-sized  radios,  and  satellite 
dishes,  a  few  dozen  computer  soft- 
ware companies  displayed  a  wealth 
of  new  programs  for  Commodore, 
Atari,  Apple,  and  IBM  machines. 

But  what  a  difference  a  year 
can  make  in  the  fortunes  of  individ- 
ual computer  companies.  Twelve 
months  ago  at  CES,  Commodore 
displayed  its  64  and  128  machines 
in  a  large,  heavily  traveled  booth  on 
the  main  floor,  while  Atari  was  en- 
sconced in  a  couple  of  meeting 
rooms  on  the  mezzanine  showing 
its  fledgling  Atari  ST.  Rumors  circu- 
lated everywhere  about  the  pend- 
ing introduction  of  Commodore's 
Amiga,  which  was  scheduled  for  a 
July  release. 

This  year  the  tables  were 
turned.  While  Atari  occupied  a 
large,  crowded  booth  full  of  third- 
party  software  developers  support- 
ing the  ST,  Commodore  occupied 
the  mezzanine  rooms  showing  its 
newly  packaged  64.  No  mention 
was  made  of  the  Amiga,  which 
Commodore  showcased  heavily  at 
the  Atlanta  COMDEX  show  in  late 


April,  and  which  it  obviously  feels 
should  be  promoted  in  business 
markets.  At  a  time  when  Atari  has 
seen  its  efforts  with  the  ST  begin  to 
bear  financial  fruit,  Commodore 
has  been  racked  by  heavy  financial 
worries.  Layoffs  at  the  West  Ches- 
ter, Pennsylvania,  headquarters 
and  at  the  Los  Gatos,  California, 
Conrmiodore/Amiga  offices  occurred 
this  spring.  Sales  of  the  Amiga  have 
been  slower  than  expected,  and  it's 
been  the  enduring  strength  of  the 
64  and  the  newer  128  that  has 
helped  the  company  fight  against 
tremendous  quarterly  losses. 

Even  with  its  current  financial 
problems,  no  one  is  counting  Com- 
modore out.  In  fact,  the  company 
hopes  the  rest  of  1986  and  early 
1987  will  see  a  reversal,  with  a 
leaner  corporate  staff,  a  new  look 
for  the  unstoppable  Commodore 
64,  new  software  and  heavy  sales  of 
the  128  (now  more  than  600,000 
sold),  and  a  slowly  rising  tide  of 
Amiga  sales.  Nonetheless,  it's  clear 
that  the  ST's  popularity  has  hurt 
the  Amiga.  One  rumor  at  CES,  un- 
substantiated at  this  point,  is  that  a 
new,  less  expensive  version  of  the 
Amiga   is   under  development. 


GEOS:  A  new  face  for  an  old  friend. 

which  would  compete  more  effec- 
tively with  the  ST. 

The  64's  New  Look 

As  we  reported  in  last  month's 
"Editor's  Notes,"  Commodore  in- 
troduced at  CES  the  new  64C,  a 
repackaged  Commodore  64  com- 
puter that  cosmetically  resembles 
the  128.  Bundled  with  it  are  two 
disks,  the  first  containing  the  icon- 
based  GEOS  operating  system  and 
geoWrite  and  geoPaint  application 
programs  on  one  side.  On  the  other 
side  of  that  disk  is  a  terminal  pro- 
gram for  use  with  the  Commodore- 
specific  QuantumLink  telecommu- 
nications network.  The  second  disk 
contains  Odell  Lake,  an  educational 
program  from  MECC  which  teach- 
es children  about  the  environment 
within  a  lake.  Internally,  the  64C  is 
identical  to  the  original  64. 

The  64C  computer  and  soft- 
ware combo  has  a  suggested  retail 
price  of  under  $250,  probably 
around  $225  according  to  one 
source.  The  present  generation  of 
64s  retails  for  about  $150  national- 
ly, but  without  any  software.  Once 
existing  stocks  of  the  older  unit  are 
depleted,  the  64C  package  will  be 
the  only  64  available.  The  GEOS/ 
QuantumLink  disk  is  also  available 
for  current  64  owners  for  $59.95. 


GEOS  (Graphic  Environment 
Operating  System)  brings  to  the  64 
the  type  of  Macintosh-style,  or 
GEM-style,  user  interface  available 
on  the  ST,  Amiga,  and  Macintosh 
machines.  GEOS  loads  from  disk, 
replacing  the  64's  ROM-based  op- 
erating system,  and  displays  a 
desktop  environment  with  icons, 
drop-down  menus,  and  windows. 
You  can  use  your  joystick  or  a 
mouse  to  move  around  the  screen. 
What's  more,  disk  operations  are 
speeded  up  by  a  factor  of  from  five 
to  seven  times.  Menu  titles  such  as 


File,  Edit,  View,  and  Disk  open  to 
reveal  additional  choices  under 
each  heading.  Also  included  on  the 
disk  are  powerful  programs  for  pro- 
ductivity applications  in  the  home 
market — word  processing,  calcula- 
tion, and  graphics  design.  Although 
there  are  still  some  memory  con- 
straints imposed  by  GEOS  on  the 
64's  available  RAM  (Random  Ac- 
cess Memory),  Commodore  plans 
to  introduce  later  this  year  a  memo- 
ry expansion  cartridge  for  the  64 
like  the  unit  now  available  for  the 
128,  (For  more  information  on 
GEOS,  see  the  CES  report  in  the 
April  1986  COMPUTE!.) 

New  128-style  cases  have  also 
been  developed  for  the  1541  drive 
(now  the  1541C)  and  the  1702  color 
monitor  (now  the  1802).  Commo- 
dore was  also  displaying  a  new 
color  monitor  for  the  64  and  128, 
the  1902A,  which  can  handle  com- 
posite video  as  well  as  digital  RGB 
(red-green-blue)  signals.  There's 
also  a  button  that  gives  you  a  green 
screen. 

Although  reactions  to  GEOS 
from  software  companies  were 
mixed,  the  overall  response  seems 
to  have  been  favorable,  according 
to  representatives  from  several 
companies  who  attended  a  GEOS 
development  seminar  hosted  by 
Commodore  and  Berkeley  Soft- 
works,  The  result,  if  all  goes  accord- 
ing to  plan,  is  for  third-party 
software  developers  to  produce  pro- 
grams for  the  new  64C  that  operate 
under  the  easy-to-use  GEOS  inter- 
face. The  procedure  is  not  difficult, 
says  one  of  the  manufacturers,  and 
could  provide  an  entirely  new  uni- 


The  new  Commodore  64C  sports  a  sleeker  look.  A  disk  containing  GEOS  and 
Quantum  Link  terminal  software  is  bundled  with  the  computer. 
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verse  of  software  for  the  popular  64. 
Commodore  also  announced 
that  the  Commodore  128  has  al- 
ready sold  more  than  600,000  units. 
With  that  installed  base  of  ma- 
chines, plus  the  millions  of  64s  al- 
ready in  use.  Commodore  feels  that 
the  computer  can  have  a  life  of  at 
least  two  or  three  more  years. 
That's  a  small  miracle  considering 
the  pace  at  which  computers  be- 
come obsolete.  After  all,  the  64  is 
now  more  than  four  years  old.  But, 
there  are  more  than  five  million  of 
the  machines  out  there,  with  a  size- 


able number  of  them  still  in  regular 
use. 

In  cooperation  with  the  games 
division  at  Lucasfilm,  Commodore 
demonstrated  a  unique  new  addi- 
tion to  QuantumLink,  an  online 
news  and  information  service 
heavily  supported  by  Commodore. 
Habitat  is  an  interactive  online  ac- 
tivity, something  of  a  cross  between 
a  game  and  the  normal  CB-type 
activity  found  on  QuantumLink. 
Once  you've  entered  the  area  on- 
line, you  are  allowed  to  create  a 
graphic  representation  of  yourself 


Easy  microcomputer 
troubleshooting  and  repair 

IBM  ®    PC  Troubleshooting  and  Repair  Guide 

Robert  C.  Brenner  ' 

Even  the  computer  novice  will  feel  comfortable  with  this  futly  illustrated  book 

on  IBM  PC  troubleshooting  and  repair.  Simple  inslructions  help  ^lou  identify 

(he  probiem  and  tell  you  how  to  fix  it  quickly  with  few  or  no  toois. 

(No.  22358,  $19.95) 

Apple®  II    Pius/Ile  Troubleshooting  and  Repair  Guide 

Roberr  C.  Brenner 

The  Apple  fl  Plus/lie  Troubleshooting  and  Repair  Guide  is  complete  with  illus- 
trations and  photographs  to  guide  you  through  the  repair  of  your  Apple  II 
Plus  or  lie  microcomputer.  Also  included  are  easy  to  understand  circuit  dia- 
grams, schematics  and  block  diagrams.  (No.  22353,  $19.95) 

Commodore  64™  Troubleshootins  and 
Repair  Guide 

Robert  C.  Brenner 
Keep  your  Commodore  64  in  top 
operating  condition  with  the  Commodore 
64  Troubleshooting  and  Repair  Guide. 
Step-by-step  instructions  will  guide  you 
through  the  complexities  of  making  simple 
repairs.  (No.  22363,  $19.95) 

Commodore  1541  Troubleshooting 
and  Repair  Guide 

Michael  G.  Peltier 

If  you  own  or  operate  a  Commodore  64 
or  VIC  20  computer  and  are  using  the 
1541  disk  drive,  this  is  the  comprehensive 
servicing  guide  you'll  need  for  equipment 
maintenance.  Disassembly/ reassembly 
instructions,  theory  of  operation,  diagrams 
and  schematics  make  repair  easy. 
(No.  22470,  $19.95) 
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800-428-SAMS 

I  317-298-5566 


Ask  for  Operator  834 


Name 
Addres 
Ciiy   - 
Slate 


D  Bill  my  credit  card 

n  VISA  n  MC  D  AE 

Exp.  Date 

Zip 


Account  No. 


Check  or  money  order  enclosed.  Make 
checks  payable  to  Howard  W.  Sams  & 
Co.  Mail  this  form  with  payment  to 
Howard  W.  Sams  &  Co.,  Dept.  DM  •  4300 
West  62nd  Street  •  Indianapolis,  IN  46268. 

DM834 


Signature  . 
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using  a  character  construction  set. 
Then  you  can  explore  the  thou- 
sands of  locales  created  by  the  Lu- 
casfilm game  staff,  interacting  with 
other  people  as  you  move  around. 
Commodore  expects  this  feature  to 
be  available  in  late  summer  or  early 
fall.  At  press  time,  the  hourly  online 
charge  was  still  uncertain. 

Atari's  XE  Bundles 

Though  much  of  the  excitement 
over  Atari  at  the  show  centered  on 
new  products  for  the  ST  computers, 
Atari  used  a  section  of  its  large 
booth  at  CES  to  promote  the  low- 
cost  65XE  and  130XE  computers  in 
a  variety  of  bundled  systems.  A 
complete  starter  package  includes 
the  CPU,  printer,  disk  drive,  and 
five  software  titles:  AtariWriter  Plus, 
Home  Filing  Manager,  Music  Com- 
poser, Defender,  and  Star  Raiiiers. 
The  64XE  (64K)  starter  package  re- 
tails for  $349.95,  and  the  130XE 
(128K)  for  $399. 

Atari  also  introduced  new  soft- 
ware titles  and  peripherals  for  the 
XE  line.  Atari  Planetarium  is  an  edu- 
cational program  that  simulates  a 
complete  observatory.  It  can  show 
the  location  of  more  than  1200 
stars,  88  constellations,  more  than 
300  deep-sky  objects,  and  the  path 
of  Halley's  Comet  during  its  most 
recent  appearance.  The  program  re- 
tails for  $24.95.  Star  Raiders  II  is  an 
arcade-style  game,  a  sequel  to  the 
1981  Star  Raiders.  It  retails  for 
$19.95.  Atari's  new  dot-matrix 
printer  for  the  XE  line,  the 
XMM801,  supports  Epson  medium- 
resolution  graphics.  With  up  to  80 
characters  per  second,  the  new 
printer  requires  no  special  interface 
for  the  Atari  XE.  It  supports  both 
friction  and  tractor  feed,  and  retails 
for  $219.  The  XEP80,  a  new  80- 
column  adapter  compatible  with  all 
Atari  eight-bit  coinputers,  allows 
for  80-column  output  to  a  standard 
monochrome  composite  monitor;  it 
will  be  equipped  to  let  the  user 
connect  a  standard  Centronics  par- 
allel printer.  No  price  was  available 
at  press  time. 

Apple  Computer,  which  tradi- 
tionally does  not  exhibit  at  CES, 
was  a  strong  presence  nonetheless, 
as  a  variety  of  new  Apple-related 
products  were  introduced  by  third- 
party  software  vendors.  Many  of 
those  software  producers  were 
speculating  on  the  soon-to-be- 


22     COMPUTE!     August  19B6 


Earth  will  be  destroyed  in  12  minutes 
to  make  way  for  a  hyperspace  bypass. 

Should  you  hitchhike  into  the  next  galaxy? 

Or  stay  and  drink  beer? 


Slip  the  disk  in  your  computer  and  suddenly  you  are 
Ai-thur  Dent,  the  dubious  hero  of  THE  HITCHHIKER'S 
GUIDE  TO  THE  GALAX^;  a  side-splitting mastemork 
of  interactive  fiction  by  novelist  Douglas  Adams  and 
Infocom's  Steve  Meretzkj'.  Ajid  eveiy  decision  you 
make  will  shape  the  stoics  outcome.  Suppose  for 
instance  you  decide  to  linger  in  the  pub.  You  simply 
type,  in  plain  English: 

/DRINK  THE  BEER 

And  the  stoiy  responds: 
'DU  GET  DRUNK  AND  HA^E  A  TER- 
RIFIC TIME  FOR  TWELUE  MINUTES* 
ARE  THE  LIFE  AND  SOUL  OF 
THE  PUD»  THEY  ALL 
CLAP  YDU  ON 
THE  BACK 


AND 
TELLYDU 
WHAT  A  GREAT 
CHAP  YOU  ARE  AND 
THEN  THE  EARTH  GETS 
UNEXPECTEDLY  DEMOLISHED*  YDU 
WAKE  UP  NITH  A  HANGDUER  WHICH  LASTS 
FOR  ALL  ETERNITY,  YOU  HAUE  DIED. 

Suppose,  on  the  other  hand,  you  decide  to: 
>EXIT  THE  TILLAGE  PUB  THEN  GO  NORTH 

In  that  case  you'll  be  off  on  the  most  mind-bogglin; 
hilarious  adventui'e  any  eaithling  ever  had. 

You  commmiicate-and  the  stoiy  responds -in  full 
sentences.  So  at  eveiy  turn,  you  have  literally  thousands 
of  alternatives.  If  you  decide  it  might  be  wise,  for 
ijTstance,  to  WTap  a  towel  ai'ound  youi*  head,  just  say  so: 


Otiier  inlfraetive  Fcience  tittion  stnries Trom  Infoeom. 


And  the  story  responds: 

THE  RAUENOUS  BUGBLATTER  BEAST  OF 
TRAAL  IS  COMPLETELY  BEWILDERED, 
IT  IS  SO  DIM  IT  THINKS  IF  YOU  CAN'T 
SEE  IT,  IT  CAN'T  BEE  YOU. 

Simply  staying  alive  from  one  zany  situa- 
tion to  the  next  vM  requii'e  eveiy  proton  of 
puzzle  soMng  prowess  yom-  mere  mortal 
mind  can  muster.  So  put  down 
that  beer  and  hitchhike 
down  to  youi'  local 
software  store  today. 
Before  they  put  that 
bypass  in. 


'ijitn-s  cjiiipli'ti'  with  Peril  Sensitive 
SL]nj:];i.v'!^.  ;i  ilicrostopie  Space  Flwt, 
LDuNTi'ANICHullon,  a  package  of 
ifullipurjxist  Flurfand  ordere  for  the 
de=iniriion  of  jotirhome  and  j^anet. 


inpocom 


For  more  mformalion  call  1-800-262-6868.  Or  write  to  us 
at  125  CambridgePark  Drive,  Cambridge,  MA  02140. 


©IBSInfoOTi. Inc. THE  HITCHHIKERS CUlDETOTHEGAU.VV«ii™i«iaHt of  Dougbs Aims. PLANETFALUSTAR^ 


announced  Apple  II  16-bit  com- 
puter. 

Another  popular  topic  of  in- 
dustry conversation  centered  on  the 
swiftly  dropping  prices  of  IBM  PC 
workralikes,  called  clones,  that  are 
expected  to  be  as  low  as  $300  by  the 
Christmas  season.  The  IBM  clones, 
from  Korea,  Taiwan,  Japan,  and 
even  the  U.S.,  are  already  begin- 
ning to  sell  into  consumer  markets. 
And  that  trend  is  expected  to  contin- 
ue. Heavy  sales  of  the  Tandy  1000 
and  rumors  about  extremely  inex- 
pensive clones  have  caused  some 
software  publishers  to  consider 
beefing  up  their  IBM  offerings. 

Although  a  complete  list  of 
software  and  hardware  showcased 
at  CES  is  beyond  the  scope  of  this 
article,  the  following  products  were 
among  those  introduced  for  Apple, 
Atari,  Commodore,  and  Atari  8 -bit 
computers.  For  more  product  infor- 
mation, see  the  "News  &  Products" 
section  in  this  issue;  for  information 
on  new  products  introduced  for  the 
16-bit  machines,  see  Tom  Halfhill's 
story  elsewhere  in  this  issue. 

Electronic  Arts:  Electronic 
Arts  continues  its  major  commit- 
ment to  eight-bit  computer  owners 
with  a  long  list  of  new  titles  for  all 
machines.  Among  the  new  offer- 
ings are  Amnesia  (Commodore  64 
version,  $39.95;  Apple  II,  $44.95), 
by  Thomas  M.  Disch  and  Cogne- 
tics;  Autoduel  (Commodore  64, 
$49.95),  by  Origin  Systems;  Bard's 
Tale  11:  The  Archmage's  Tale  (Com- 
modore 64),  by  Michael  Cranford; 
Battlefront  (Commodore  and  Apple 
versions,  $39.95),  by  Strategic 
Studies  Group;  Chessmaster  2000 
(Commodore,  Apple,  and  Atari  ver- 
sions, $39.95;  IBM,  $44.95),  by 
Software  Country;  Scavenger  Hunt 
(Commodore  and  Apple  II),  by 
Ozark  Softscape;  Timothy  Leary's 
Mind  Mirror  (Commodore  version, 
$32.95;  Apple  II,  $34.95),  by  Dr. 
Timothy  Leary;  Ultimate  Wizard 
(Commodore  64,  $29.95),  by  Sean 
A.  Moore  and  Steven  Luedders;  >lge 
of  Adventure  (Apple  II  and  Atari, 
$14.95);  and  Venture's  Business  Sim- 
ulator (IBM  only,  $99.95),  by  Reali- 
ty Development.  (Electronic  Arts, 
1820  Gateway  Dr.,  San  Mateo,  CA 
94404.) 

Abacus  Software:  In  addition 
to  its  line  of  Atari  ST  and  Commo- 
dore 128  books.  Abacus  displayed 
its    BASIC    Compiler  for    the    128 
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($59.95)  along  with  the  previously 
released  64  version  ($39.95).  Also 
on  display  were  the  128  versions  of 
its  CADPAK  computer-aided  de- 
sign program,  Super-C  Language 
Compiler  and  Super  Pascal  Develop- 
ment System  ($59,95  each;  64  ver- 
sions also  available).  Among  a 
variety  of  other  software  packages, 
Abacus  has  now  added  COBOL-64, 
a  Commodore  version  of  the  popu- 
lar business  programming  lan- 
guage. (Abacus  Software,  P.O.  Box 
7219,  Grand  Rapids,  MI  49510.) 

The  Learning  Company:  Two 
new  products  have  been  added  to 
its  collection  of  well-known  educa- 
tional software.  Writer  Rabbit  helps 
develop  the  critical  process  of 
learning  to  use  words  and  sen- 
tences. It  offers  several  features  that 
were  implemented  in  response  to 
requests  made  by  children,  teach- 
ers, and  parents.  The  program  in- 
cludes several  games,  each  of 
which  enables  the  child  to  explore  a 
different  aspect  of  words  and  sen- 
tences in  a  fun  and  supportive  set- 
ting. The  games  incorporate 
graphics  and  sound,  and  each  game 
can  be  tailored  to  a  child's  own 
pace. 

Math  Rabbit  teaches  early  math 
skills  to  children  ages  5-7,  and  also 
incorporates  entertainment  to  en- 
courage children  to  participate. 
Available  for  Apple  II  series  com- 
puters, each  program  has  a  suggest- 
ed retail  price  of  $39.95.  (The 
Learning  Company,  545  Middle- 
field  Rd.,  Suite  170,  Menlo  Park, 
CA  94025.) 

Access  Software:  On  the  heels 
of  its  popular  Leader  Board  profes- 
sional golf  simulator.  Access  intro- 
duced 10th  Frame  ($39.95),  a 
professional  bowling  simulator  for 
the  Commodore  64.  (Access  Soft- 
ware, 2561  South  1560  West, 
Woods  Cross,  UT  84087.) 

Multibotics:  In  cooperation 
with  Access  Software,  this  compa- 
ny is  introducing  a  line  of  home 
robotics  workshops  for  the  Com- 
modore 64  and  128,  Atari  400/ 
800/XL/XE,  Apple  lie,  IBM  PC  and 
compatibles.  Commodore  Amiga, 
and  Atari  ST. 

The  MB230  Workshops  consist 
of  an  interface  that  connects  the 
computer  to  snap-together  robotics 
modules,  plus  software  for  control- 
ling the  modules.  The  software  en- 
ables the  computer  to  function  as  a 


variable-speed  motor  controller,  a 
voltmeter,  an  oscilloscope,  an  infra- 
red controller/detector,  and  an  au- 
dio digitizer.  Retail  prices  for  the 
workshops  range  from  $59.95  to 
$199.95.  (Access  Software,  see  ad- 
dress above.) 

Accolade  Software:  Accolade 
is  introducing  in  late  summer  an 
arcade-action  game  called  Deceptor. 
As  you  manipulate  your  Deceptor 
through  six  levels  of  increasingly 
difficult  play,  you  can  transform  the 
robotic  vehicle  from  ground-based 
to  airborne,  and  finally  into  a  hu- 
manoid  shape.  The  game's  respon- 
siveness can  be  tailored  to  your 
liking,  and  you  can  practice  most  of 
the  levels  to  increase  your  chances 
of  survival.  (Price  unannounced.) 

Accolade  also  announced  Ap- 
ple II  and  IBM  versions  ($34.95 
each)  of  its  PS7-5  Trading  Company 
science  fiction  adventure  game.  A 
Macintosh  version  ($44.95)  of  the 
Hardball  baseball  game  was  also 
announced  at  CES.  (Accolade  Soft- 
ware, 20833  Stevens  Creek  Blvd., 
Cupertino,  CA  95014.) 

Springboard  Software:  The 
publisher  of  the  bestselling  News- 
room has  introduced  two  new  pro- 
ductivity packages  with  appHcation 
in  the  home,  school,  and  office. 

The  Newsroom  Pro  is  aimed  at 
the  person  who  wants  to  take  a 
more  professional  approach  to  pro- 
ducing a  newsletter.  It  contains  ev- 
erything the  user  needs  to  produce 
a  high-quality  newsletter,  including 
banner  creation,  text  entry,  graphic 
production,  layout,  and  high-reso- 
lution printing.  More  than  2,000 
pieces  of  clip  art  are  included.  It  is 
available  for  the  IBM-PC  for  $129.95. 

Certificate  Maker  provides 
more  than  200  predesigned  certifi- 
cates, awards,  diplomas,  and  li- 
censes in  a  wide  variety  of 
categories  such  as  sports,  academic 
achievement,  families,  children,  re- 
ligion, and  business.  Available  for 
Apple  ($49.95),  IBM-PC  ($59,95), 
and  Commodore  64  (price  not  yet 
determined).  (Springboard  Soft- 
ware, 7808  Creekridge  Cir.,  Minne- 
apolis, MN  55435.) 

Activision:  The  Activision 
family  of  companies  continues  to 
expand,  with  the  acquisition  of  In- 
focom,  a  well-known  adventure 
game  company.  Infocom  will  main- 
tain its  own  brand-name  imprint 
under  the  Activision  umbrella.  Pre- 
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BESTSELLERS 


from  COMPUTE!  Books 

You  can  depend  on  COMPUTE!  for  clearly  written, 
easy-to-use  books  for  your  Commodore  64.  This 
assortment  of  titles  includes  some  of  our  most 
frequently  requested  books  containing  many  of  our 
best  ever  applications,  games,  utilities,  tutorials,  and 
programming  hints,  all  ready  to  type  in  and  use  on 
your  Commodore  64. 


Mochine 
Language 

Routines 

for  ttw 

Commodore 
64 


Look  over  this  list  of  backlist  bestsellers,  and  choose  the  titles  you  need  to  complete  your  library  of  first-rate 
Commodore  64  books  from  COMPUTE!. 


COMPUTEI's  First  Book  of  Commodore 
64  Sound  and  Graphics 

Edited,  275  pages 

Clear,  useful  explanations  of  the  64's  sound  and 

graphics  capabilities  Including  tutorials  and  example 

programs. 

$12.95     ISBN  0-942366-21-3 

Creating  Arcade  Gaines  on  the 
Commodore  64 

Robert  Camp,  357  pages 

A  guide  to  creating  arcade  games  on  the  64,  plus 

finished  games  to  play  and  study. 

$14.95     ISBN  0-942386-36-1 


COMPUTEI's  Commodore  Collection, 
Volume  One 

Edited,  208  pages 

An  anthology  of  28  practical  programs  in  easy-to- 
use  form  for  (he  Commodore  64  and  VlC-20. 
$12.95     ISBN  0-942386-55-8 

COMPUTEI's  Machine  Language  Routines 
for  the  Commodore  64 

Edited,  255  pages 

Complete  machine  language  programs  and  easy-to- 
use  routines  help  to  make  the  Commodore  64 
more  powerful  and  versatile. 
$14.95     ISBN  0-942386-48-5 


COMPUTEI's  Commodore  Collection, 
Volume  Two 

Edited,  270  pages 

This  second  volume  in  COMPUTEI's  Commodore 

Collection  series  includes  escciting  games, 

sophisticated  applications,  versatile  educational 

routines,  and  helpful  programming  aids  for  VIC-20 

and  Commodore  64  users. 

$12.95     ISBN  0-942386-70-1 

All  About  the  Commodore  64,  Vol.  One 

Craig  Chamberiain,  269  pages 

For  beginning  to  intermediate  programmers  who 

want  to  develop  the  full  potential  of  their 

Commodore  64  computers, 

$12.95     ISBN  0-942366-40-X 


Visit  your  local  book  or  computer  store  for  ftese  titles.  Or  order  directly  from  COMPUTE!.  To  order,  call  toll-free 
800-346-6767  (in  NY  212-887-8525)  or  write  COMPUTEI  Books,  P.O.  Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Please  allow  4-6  weeks  for  delivery. 

When  ordering,  please  include  $2.00  shipping  and  handling  per  book  in  U.S.  and  surface  mail  or  $5,00  aimnail.  North  Carolina 

residents  add  4.5  percent  sales  tax,  U,S.  funds  only. 


COMPUTEI  Publications Jnc® 

Pari  o1  ABC  CoTBumefMagojnes.Inc,  ^^^ 

One  of  the  ABC  PubJ^ing  Companies 

B25  7fh  Avenue.  6th  Floor,  New  vtirt,  NV  10019 
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COMPLTrt!  books  are  available  in  the  U,K,,  Europe,  the  Middle  East,  and 
Africa  from  Holt  Saunders,  Ltd.,  1  St,  Anne's  Road,  Eastbourne,  East  Sussex 
BN21  3UN,  England,  and  in  Canada  from  McGraw-Hill,  Ryerson  Ltd.,  330 
Progress  Ave,;  Scarfjorough,  Ontario,  Canada  Ml  P  2ZS. 


viously  acquired  companies,  such 
as  Creative  Software  and  Gamestar, 
continue  to  have  an  impact  on  the 
company's  product  line  as  well. 

I  Am  the  €-128  is  one  of  the 
products  in  Activision's  new  Per- 
sonal Choice  Software  line,  which 
includes  the  Writer's  Choice  word 
processor,  the  Filer's  Choice  data- 
base, and  Planner's  Choice  spread- 
sheet for  the  Apple  II  fanuly,  the 
Commodore  64/128,  and  the  IBM 
PC,  the  Tandy  1000,  and  other  MS- 
DOS  computers.  One  of  Activi- 
sion's most  popular  products  last 
year  was  the  mystery  adventure 
game  Hacker.  This  year  the  compa- 
ny will  introduce  a  sequel.  Hacker 
11:  The  Doomsday  Papers,  which  be- 
gins where  the  first  program  ended. 
Commodore  64/128  and  Apple  II 
versions  will  sell  for  $39.95,  while 
IBM  PC/PCjr/Tandy  1000  and  Mac- 
intosh versions  will  be  priced  at 
$49.95  each.  Activision  remains 
one  of  the  most  prolific  software 
publishers,  with  more  titles  sched- 
uled for  release  after  September  1. 
(Activision,  2350  Bayshore  Front- 
age Road,  Mountain  View,  CA 
94043.) 

Simon  &  Schuster:  The  soft- 
ware division  of  this  publishing 
house  has  released  Webster's  New 
World  Writer,  a  versatile  word  pro- 
cessor (IBM-PC  with  256K,  $150), 
and  Webster's  New  World  On-line 
Thesaurus,  a  120,000-word  thesau- 
rus compatible  with  more  than  30 
major  word  processors  and  other 
software  packages  (IBM-PC  with 
128K,  PCjr  with  256K;  $69.95).  {Si- 
mon &  Schuster  Software,  Gulf  & 
Western  Bldg.,  One  Gulf  &  Western 
Plaza,  New  York,  NY  10023.) 

Avalon  Hill:  The  Microcom- 
puter Games  division  of  Avalon 
Hill  also  announced  a  variety  of 
new  titles  for  Apple,  Atari,  Com- 
modore, and  IBM  computers. 

Spitfire  40  is  a  World  War  II  air- 
war  game  and  flight  simulator  for 
the  Commodore  64/128  ($35),  with 
conversions  for  other  machines  al- 
ready under  way.  The  popularity  of 
Avalon  Hill's  Super  Sunday  football 
game  has  encouraged  the  company 
to  introduce  1985  expansion  disks 
for  use  with  the  original  game,  for 
Commodore  64/128  and  IBM  ma- 
chines ($20  each). 

Macbeth  is  a  graphics-and-text 
adventure  game  based  on  the 
Shakespearean  play,  for  Commo- 


dore 64/128  ($25).  In  August,  Ava- 
lon Hill  will  introduce  Darkhom,  a 
fantasy  warfare  game,  for  the  Apple 
II  and  Commodore  computers  ($30). 
A  science  fiction  arcade-action 
game.  Mission  on  Thunderhead,  is 
now  available  for  Apple  II,  Atari 
800/XL/XE,  and  Commodore  64/ 
128  computers  ($25),  Expansion 
modules,  one  for  Extended  Units 
and  the  other  for  the  Campaign 
Disk,  are  also  available  for  the  pre- 
viously released  Under  Fire!  strategy 
game.  (Avalon  Hill,  Microcomputer 
Games  Division,  4517  Harford 
Road,  Baltimore,  MD  21214.) 

Bantam  Electronic  Publish- 
ing: Two  new  Apple  II  and  Com- 
modore 64  programs  scheduled  for 
fall  release  were  displayed  by  Ban- 
tam at  CES.  The  packages  feature 
popular  Disney  cartoon  characters 
in  productivity  programs. 

Each  program  will  carry  a  retail 
price  of  $39.95  for  Apple  II  ver- 
sions, and  $34.95  for  Commodore 
64/128  versions.  (Bantam  Electron- 
ic Publishing,  666  Fifth  Ave,,  New 
York,  NY  10103.) 

Softsync:  This  company  has 
premiered  The  Model  Diet  (Commo- 
dore 64,  $29.95;  Apple  II,  IBM-PC, 
$34.95),  a  computerized  diet  and 
nutrition  program;  and  Desk  Man- 
ager (Commodore  64, 128,  Apple  II, 
$39.95),  a  desktop  accessory  that 
uses  windows.  (Softsync,  Inc.,  162 
Madison  Ave.,  New  York,  NY 
10016.) 

Batteries  Included:  As  noted 
in  last  month's  "News  &  Products" 
(page  117),  Batteries  Included  has 
introduced  an  extensive  array  of 
new  products  for  a  variety  of  com- 
puters. Among  the  new  titles  you'll 
be  seeing  will  be  the  PaperClip  U 
word  processor  ($79.95)  and  the 
HomePak  three-in-one  telecom- 
munications-word processor-data 
manager  ($49.95),  both  for  the 
Commodore  128;  the  PaperClip 
word  processor  for  the  Apple 
II/II+/IIe/IIc  computers  ($59.95); 
PaperClip  with  SpellPak  spelling 
checker  for  the  Atari  130XE 
($59.95);  and  five  new  productivity 
packages  for  the  IBM  PC  and  com- 
patibles, including  the  advanced 
PaperClip  Elite  word  processor 
($129,95)  and  Degas  Elite  graphics 
program  ($79.95),  among  others. 
(Batteries  Included,  30  Mural  St., 
Richmond  Hill,  Ontario,  Canada 
L4B  1B5.) 


Spinnaker;  This  software  pub- 
lisher introduced  A.C.E.,  a  combat 
simulator  for  the  Commodore  64. 
This  game  combines  a  flight  simu- 
lator with  arcade-game-style  com- 
bat. It  features  multiple  weapons 
systems,  an  on-board  computer, 
overhead  satellite  mapping,  and  3-D 
action  ($19.95).  (Spinnaker  Soft- 
ware, One  Kendall  Sq.,  Cambridge, 
MA  02139.) 

Bodylog:  Bodylog  has  devel- 
oped a  new  multipurpose  peripher- 
al called  Body  link,  which  plugs  into 
the  cartridge  slot  of  a  Commodore 
64/128  and  turns  the  computer  into 
an  exercise  machine,  stress  reduc- 
tion device,  and  personal  comput- 
erized biofeedback  loop.  Once 
you've  purchased  a  package  that 
contains  the  main  Bodylink  hard- 
ware, you  can  buy  add-on  software 
packages  for  whatever  applications 
you're  interested  in.  Prices  for  start- 
er kits  range  from  $139.95  to 
$209.95;  additional  hardware  and 
software  packages  for  a  wide  vari- 
ety of  applications  cost  between 
$29.95  and  $99.95.  (Bodylog,  34 
Maple  Ave.,  Armonk,  NY  10504.) 

Timeworks:  Timeworks  an- 
nounced that  its  Commodore  128- 
specific  programs.  Word  Writer  128, 
Swiftcalc  128,  Data  Manager  128, 
and  Sylvia  Porter's  Personal  Finan- 
cial Planner  128,  will  continue  to  be 
upgraded  on  a  regular  basis.  The 
publisher  has  also  added  a  thesau- 
rus to  Word  Writer  128.  (Timeworks, 
444  Lake  Cook  Rd.,  Deerfield,  IL 
60015.) 

Braderbund  Software:  Sever- 
al new  products  representing  a  di- 
verse line  of  software  were 
introduced  by  BrcJderbund.  Among 
them  were  The  Toy  Shop,  available 
for  the  Apple  II  series  and  Commo- 
dore 64,  which  lets  the  user  make 
20  working  mechanical  models  and 
toys.  Users  can  customize  their 
toys,  print  out  the  designs  on  paper, 
and  attach  them  to  adhesive  card- 
board. Wire,  wooden  dowels,  adhe- 
sive cardboard,  and  other  necessary 
supplies  are  included  in  the  pack- 
age, along  with  a  comprehensive 
user  manual.  Suggested  retail  price 
for  both  versions  is  $59.95.  (Br^ader- 
bund  Software,  17  Paul  Dr.,  San 
Rafael,  CA  94903.) 

For  further  information  on  new  prod- 
ucts announced  at  the  Summer  Con- 
sumer Electronics  Show,  please  see 
the  "News  &  Products"  section.     © 


16-Bit  Explosion! 

New  Products  For  The  Atari  ST 

And  Amiga 


As  they  enter  their  second  year  on  the 
market,  the  Atari  ST  and  Commodore 
Amiga  are  building  up  respectable 
software  libraries  spanning  all  the 
major  categories  of  personal  comput- 
ing. At  the  same  time,  new  peripher- 
als and  accessories  are  making  the 
computers  themselves  even  more 
powerful.  Here's  a  look  at  the  high- 
lights of  two  recent  computer  indus- 
try trade  shows:  the  Spring  COMDEX 
in  Atlanta  and  the  Summer  Consumer 
Electronics  Show  (CES)  in  Chicago. 
Many  of  these  new  products  will  be 
available  this  summer. 


Atari  ST 

Atari  was  a  major  player  at  the 
Spring  COMDEX  and  Summer 
Consumer  Electronics  Show  (CES), 
filling  its  booths  at  both  shows  with 
dozens  of  cubicles  sponsored  by  in- 
dependent developers  demonstrat- 
ing their  wares.  The  exhibits 
attracted  thousands  of  browsers 
and  potential  new  dealers.  Perhaps 
more  importantly.  Atari  continued 
to  gain  credibility — strengthening 
its  image  as  a  revitalized  company 
on  firm  financial  footing  which  is 
determined  to  become  a  significant 
force  in  the  personal  computer 
industry. 

Atari's  biggest  announcements 
for  the  ST  series  included: 


Tom  R.  Halfhill,  Editor 

•  An  MS-DOS  emulator  that  is 
supposed  to  run  most  of  the  big- 
name  IBM  PC  software.  (The  proto- 
type was  running  Microsoft's 
Multipian.)  The  emulator  is  an  ex- 
ternal box  which  contains  an  8088 
microprocessor,  a  socket  for  an 
8087  math  coprocessor,  and  512K 
of  random  access  memory  (RAM). 
When  the  emulator  isn't  operating, 
the  ST  can  use  the  extra  512K  as  a 
RAM  disk.  Atari  still  hasn't  decided 
whether  to  put  a  5V4-inch  floppy 
disk  drive  in  the  box,  so  the  final 
price  is  undetermined.  Estimates 
are  $300  to  $400.  Atari  plans  to 
begin  selling  the  emulator  this  fall. 

•  A  CP/M  emulator  imple- 
mented entirely  in  software.  This 
comes  on  a  SVi-inch  disk  and  lets 
you  run  virtually  any  program  writ- 
ten for  the  CP/M  (Control  Pro- 
gram/Microcomputers) operating 
system  at  100  percent  speed.  No 
extra  hardware  is  required.  Already 
available  in  Europe,  the  CP/M  em- 
ulator should  be  selling  in  the  U.S. 
this  summer  for  under  $50. 

•  A  special  summer  price  pro- 
motion that  allows  dealers  to  sell  a 
520ST,  floppy  disk  drive,  and 
monochrome  monitor  for  $599. 

•  Atari  announced  immediate 
availability  of  its  20-megabyte 
SH204  hard  disk  drive  for  $799.95 
and  an  Epson-compatible  dot- 
matrix  printer,  the  SMM804,  for 
$219.95,  The  printer  can  make  ac- 
curate screen  dumps  of  the  ST's 
high-resolution  (640  X  400-pixel) 


screen  mode.  It  prints  at  80  charac- 
ters per  second  and  offers  both  fric- 
tion and  tractor  feed. 

•  Atari  has  acquired  rights  to 
market  an  ST  version  of  Versasoft's 
dBMAN,  a  high-end  relational  data- 
base manager  originally  designed 
for  the  IBM  PC  and  patterned  after 
Ashton-Tate's  dBASE  11  and  dBASE 
HI.  According  to  Atari,  experienced 
dBASE  users  can  use  dBMAN  with 
no  retraining.  The  suggested  retail 
price  is  $149.95,  and  Atari  is  en- 
couraging dealers  to  give  free  eval- 
uation copies  to  potential 
customers.  The  free  copy  is  fully 
functional,  but  allows  only  30  re- 
cords per  database. 

In  addition  to  these  announce- 
ments, independent  companies  ex- 
hibited a  flood  of  new  software  and 
hardware  for  the  ST  series,  includ- 
ing some  impressive  business  pro- 
grams. With  even  more  products 
due  this  fall,  it's  obvious  that  the  ST 
will  have  a  solid  software  library  by 
the  end  of  1987. 

So  much  software  is  being  re- 
leased that  we  don't  have 
room  here  to  cover  it  all;  scan 
the  "News  &  Products"  section  in 
this  and  future  issues  for  further 
information.  Following  are  some 
products  that  particularly  caught 
our  attention. 

Batteries  Included  (Irvine,  Cal- 
ifornia) is  emerging  as  one  of  the 
top  software  companies  supporting 
the  ST.  Later  this  summer  it  plans 
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$10,000.00 

Atari  ST 
Programming  Contest! 

First  Prize  $5,000.00  Second  Prize  $2,500.00 

Third  Prize  $1,000.00 
Three  Honorable  Mentions  $500.00  each 

COMPUTE!  Publications,  Inc.  is  looking  for  the  very  best  original  software  for  the  Atari  ST  series 
computers.  And  to  prove  we're  serious,  we're  offering  a  total  of  $10,000.00  in  prize  money  to  the  top 
six  winners.  That's  $5,000.00  for  First  Prize,  $2,500.00  for  Second  Prize,  $1,000.00  for  Third  Prize, 
and  $500.00  each  for  three  Honorable  Mentions.  In  addition,  the  winners  will  receive  our  standard 
royalties  when  their  programs  are  published.  And  even  if  your  program  doesn't  win  a  prize,  you  can 
still  earn  purchase  fees  and  royalties  if  we  accept  your  entry  for  publication. 
Interested?  If  so,  read  these  rules: 


1.  Entries  must  be  your  original  work,  previously  unpublished.  All  those 
whose  programs  are  accepted  will  be  required  to  affirm  this  in  writing. 

2.  Vou  can  submit  as  many  entries  as  you  want,  but  we  cannot  consider 
programs  which  have  been  entered  in  other  contests  or  submitted  for 
publication  elsewhere  at  the  same  time. 

3.  The  deadline  is  October  1,  1986.  All  entries  must  be  received  at  our 
offices  by  this  date.  Programs  submitted  after  this  date  will  still  be  consid- 
ered for  publication,  but  will  not  be  entered  in  the  contest. 

4.  Entries  are  allowed  (and  encouraged}  in  virtually  all  software  categories; 
home  and  business  applications,  education,  recreation,  telecommu- 
nications, graphics,  sound  and  music,  utilities,  and  desk  accessories. 

5.  Entries  may  be  written  in  any  programming  language — including 
BASIC,  Logo,  C,  machine  language,  Pascal,  Modula-2,  Forth,  FORTRAN, 
and  Prolog — as  long  as  they  meet  two  requirements.  First,  if  you're  using  a 
compiled  language,  the  compiled  object  or  run- time  code  must  be  a  self- 
standing  program  that  can  be  run  by  someone  who  doesn't  own  a  copy  of 
the  language.  (Exceptions  are  ST  BASIC  and  Logo.  Since  these  languages 
come  with  the  ST,  it  can  be  assumed  that  everyone  owns  a  copy.)  Second, 
we  must  be  able  to  legally  distribute  the  program  without  incurring  licens- 
ing fees  or  other  obligations  to  the  maker  of  the  language.  If  you're  not  sure 
whether  a  certain  language  qualifies,  contact  its  maker  for  clarification, 

6.  Entries  must  be  submitted  on  a  single-  or  double-sided  SVi-inch  ST  disk 
with  both  the  run-time  code  and  source  code  included. 

7.  Entries  must  be  accompanied  by  an  article  which  explains  how  to  use  the 
program,  what  it  does,  and  so  on.  If  your  program  employs  any  new  or  un- 
usual techniques  that  you  think  will  be  of  interest  to  other  ST  pro- 
grammers, you  can  also  describe  how  the  program  works. 

8.  Submissions  which  do  not  win  a  prize  and  are  not  accepted  for  publica- 
tion will  be  returned  only  if  accompanied  by  a  self-addressed,  stamped 
mailer. 

9.  All  judging  mil  be  handled  by  the  staff  of  COMPUTE!  Publications,  Inc. 
All  decisions  regarding  contest  entries  and  acceptances  will  be  solely  at  the 


discretion  of  COMPUTE!  Publications,  Inc.,  and  all  decisions  are  final.  This 
includes  decisions  regarding  creativity,  similarity  among  entries,  and  so 
forth. 

10.  Winners  will  be  announced  by  COMPUTE!  Publications,  Inc.  in  late 
1986. 

11.  This  contest  is  void  where  prohibited  by  law.  Full-time,  part-time  & 
previous  employees  of  COMPUTE!  Publications,  Inc.,  and  Capital  Cities/ 
American  Broadcasting  Corporation  are  ineligible  for  the-contesl,  but  may 
still  submit  work  for  publication  at  standard  rates. 

Every  Contest  Entry  Musi  Contain  This  Form: 

i  warrant  that  the  program  presently  entitled 


is  my  own  original  work 

and  that  the  work  has  not  been  submitted  for  consideration  elsewhere,  nor 
has  it  been  previously  published.  If  my  work  is  accepted  by  you,  I  under- 
stand that  your  decision  as  to  the  selection  of  winners  and  awarding  of 
prizes  is  final  and  without  recourse  on  my  part.  I  agree,  should  you  select 
my  submission,  to  sign  your  standard  contract,  which  includes  assignment 
of  the  copyright  of  the  program  to  COMPUTE!,  and  to  allow  you  to  use  my 
name  and  image  in  promotional  materials  and  other  forms.  (J/you  are  under 
age  eighteen,  your  parent  or  legal  guardiart  must  sign  for  you.) 

Address  entries  to: 

ATARI  ST  CONTEST 
COMPUTE!  Publications,  Inc. 
P.O.  Box  5406 
Greensboro,  NC  27403 
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Part  of  ABC  Consumer  Ivlagozinos.  Inc 
One  of  the  ABC  Publishing  Companies 


Announcing  major  news  for  Atari  ST  users: 


DISK   8c   MAGAZINE 


A  bimonthly  magazine  devoted  exclusively  to  Atari  ST  enthusiasts  that  includes  a 
disk  containing  all  of  the  programs  found  in  each  issue. 


Atari  has  proven  the  pessimists  wrong.  The  Atari  520ST 
and  1040ST  have  become  the  bestsellers  among  the 
new  generation  of  personal  computers.  Both  are  break- 
throughs in  price  and  performance,  and  the  community 
of  ST  owners  is  growing  by  thousands  each  month. 

That's  one  reason  why  COMPUTE!  Publications  is 
announcing  a  new  magazine  specially  designed  for  ST 
users.  At  the  same  time,  we  recognize  that  the  power  of 
the  ST  presents  a  unique  challenge  to  magazines  which 
publish  program  listings.  That's  why  we're  including  a 
3y2-inch  disk  that  contains  every  program  found  in 
each  issue — ready  to  load  and  run.  No  more  typing! 

Here's  what  you'll  get  in  every  issue  of  COMPUTES's 
Atari  ST  Disk  &  Magazine: 

•  Top-quality  programs.  Utilities.  Games.  Educational 
programs  for  youngsters.  Application  programs  for 
home  and  business.  And  since  all  the  programs  will  be 
on  disk,  there  are  few  limitations  on  length  or  lan- 
guages. A  typical  disk  might  contain  an  elaborate 
adventure  game  written  in  BASIC,  a  programming  utility 
written  in  machine  language,  a  dazzling  graphics  demo 
in  compiled  Pascal,  and  a  useful  home  or  business 
application  written  in  Forth  or  C. 

•  Neochrome  of  the  Month.  Take  a  look  at  what  com- 
puter artists  are  doing  with  the  Atari  ST.  Each  issue's 
disk  contains  a  Neochrome  picture  file  ready  for  you  to 
load  and  admire.  Are  you  an  artist  yourself?  Send  us  a 
picture  of  your  own,  and  we'll  pay  you  if  it's  published. 

•  Regular  columns.  If  you're  a  programmer — or  would 
like  to  be — you'll  love  our  columns  on  ST  programming 
techniques  and  the  C  language.  Or  check  out  our 
column  on  the  latest  events  and  happenings  throughout 
the  ST  community.  Or  send  your  questions  and  helpful 
hints  to  our  Reader's  Feedback  column. 

•  Reviews.  Honest  evaluations  of  the  latest  software 
and  hardware  for  the  Atari  ST. 

•  News  &  Products.  A  comprehensive  listing  of  the 
newest  releases  for  your  ST, 
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•  And  more:  Interviews  with  ST  newsmakers,  reports 
on  the  latest  industry  trade  shows,  and  overviews  of 
significant  new  product  introductions. 

Starting  with  the  October  issue  (available  September  1), 
CGMPUTEI's  Atari  ST  Disk  &  Magazine  will  be 
found  on  newsstands  nationwide  for  only  $12.95  per 
copy,  including  disk.  Or  it  can  be  delivered  directly  to 
your  mailbox  sbc  times  a  year  for  only  $59.95 — a  savings 
of  over  20  percent. 


As  a  special  bonus,  if  you  order  a  prepaid 

subscription  before  August  1,  you'll  get 

Hie  first  issue  absolutely  free! 


To  order,  call  800-346-6767.  In  NY  212-887-8525 
or  send  check  or  money  order  to 
COMPUTEI's  Atari  ST  Disk  &  Magazine 

ABC  Consumer  Magazines,  Inc. 
Circulation  Dept./8th  Floor 
825  7th  Avenue 
New  York,  NY  10019 

COMPUTE!'  Publicationsjnc.® 
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Part  of  ABC  Consumer  MOQQZines.  Inc 
One  of  the  A3C  Publishing  Companies 
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to  release  a  follow-up  to  its  popular 
Degas  drawing  program;  Degas 
Elite.  New  features  include  ten  lev- 
els of  magnification;  the  ability  to 
load  a  picture  created  in  any  resolu- 
tion into  any  other  screen  mode 
(including  monochrome  to  color 
and  vice  versa);  the  ability  to  load 
pictures  created  with  an  Atari  400/ 
800/XL/XE  and  KoalaPad  or  Atari 
Touch  Tablet;  up  to  eight  screens  in 
memory  at  once,  with  block-copy- 
ing between  screens;  adjustable 
color  cycling  for  animation  effects; 
automatic  color  blending  across  the 
selected  color  palette;  and  the  abili- 
ty to  grab  any  portion  of  a  screen 
and  use  it  as  a  paintbrush.  Degas 
Elite  will  sell  for  $79.95. 

Batteries  Included  has  already 
started  shipping  a  program  called 
Thunder!,  a  realtime  spelling  check- 
er. Thunder!  installs  as  a  desk  acces- 
sory and  loads  a  50,000-word 
dictionary  into  memory  and,  using 
a  special  compaction  technique, 
takes  up  only  about  80K  of  RAM.  It 
works  in  realtime  with  any  program 
that  supports  GEM — including 
word  processors,  terminal  pro- 
grams, text  editors,  and  notepads. 
When  you  type  a  word  that  Thun- 
der! cannot  find  it  its  dictionary,  it 
beeps  to  let  you  know.  By  pressing 
a  key  or  selecting  a  menu  item,  you 
can  pop  open  a  window  that  dis- 
plays a  number  of  words  that  Thuti- 
der!  thinks  you  were  trying  to  spell. 
If  you  find  the  correct  word  in  the 
list  and  click  on  it  with  the  mouse. 
Thunder!  automatically  substitutes 
the  correct  spelling,  closes  the  win- 
dow, and  lets  you  resume  typing.  If 
you  find  realtime  spell-checking 
annoying,  Thunder!  also  lets  you 
check  an  entire  document  after  it's 
created  or  check  documents  created 
with  text  editors  that  don't  support 
GEM.  Numerous  other  features 
allow  you  to  add  your  own  words 
to  the  main  dictionary,  compile 
supplementary  dictionaries  on  disk, 
and  analyze  your  text  for  readabili- 
ty. Thunder!  sells  for  $39.95. 

Abacus  Software  (Grand  Rap- 
ids, Michigan)  announced  several 
new  programs:  ST  TextPro,  a  word 
processor  with  mouse  and  key- 
board commands,  multicolumn  and 
sideways  printing,  user-definable 
function  keys,  automatic  indexing, 
and  table-of-contents  generation; 
ST  Text  Designer,  a  page-making 
package  for  creating  layouts  from 
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text  files;  ST  DataPro,  a  database 
manager  that  allows  up  to  64,000 
records  of  unlimited  length;  ST 
Forth/MT,  a  multitasking  Forth 
with  more  than  1500  commands 
and  32-bit  arithmetic;  STPaintPro,  a 
GEM-based  design  program;  and 
ST  AssemPro,  a  68000  macro  assem- 
bler and  debugger  with  text  editor. 
All  these  programs  sell  for  $49.95, 
except  ST  AssemPro,  which  sells  for 
$59.95. 

The  software  company  which 
wrote  1st  Word  for  Atari — GST 
of  Cambridge,  England — is  ex- 
porting several  programs  to  the 
U.S.,  including  1st  Word  Plus. 
Among  other  things,  this  enhanced 
word  processor  lets  you  merge 
Neochrome  or  Degas  pictures  into 
documents.  Current  plans  call  for 
Atari  to  market  1st  Word  Plus,  but 
GST  will  be  selling  its  other  pro- 
grams independently.  These  in- 
clude GSTC  Compiler,  a  GEM 
development  package  for  the  C  lan- 
guage; GST-ASM,  a  68000  macro 
assembler;  GEM  Screen  Editor,  a  text 
editor;  and  GST  Linker,  for  compil- 
ing runtime  code  from  source  li- 
braries. GEM  Screen  Editor  and  GST 
Linker  are  included  with  GSTC  Com- 
piler and  GST-ASM.  Prices  were  not 
available  at  press  time, 

Avila  Associates  (Lafayette, 
California)  is  bringing  out  an  ani- 
mation program  called  Make  It 
Move.  By  pointing  and  clicking  on 
icons  representing  different  func- 
tions, you  can  write  a  script  for 
animating  shapes,  text,  and  other 
graphics.  It's  compatible  with  all  of 
the  popular  drawing  programs  and 
offers  such  functions  as  zooms, 
fades,  and  spins.  Price:  $49,95.  An- 
other Avila  product  is  Casino  Craps, 
a  complete  craps  simulation:  $39.95. 

Desk  accessories  are  proving  to 
be  as  popular  on  the  ST  as  they  are 
on  the  Macintosh  and  IBM.  Two  of 
the  most  complete  business-oriented 
accessories  we've  seen  are  from 
Blue  Moon  Software  {Lenexa,  Kan- 
sas). MacroDesk  contains  an  18- 
function  calculator  with  ten 
memories  that  works  in  either  alge- 
braic or  reverse-Polish  notation;  an 
alarm  clock/calendar  that  helps 
you  keep  track  of  events  far  into  the 
future;  a  filer  with  search,  print,  and 
phone -dialing  functions;  and  an 
event  log  that's  somewhat  like  a 
diary  for  jotting  down  important 


contacts  and  events.  MacroManager 
has  all  the  features  of  MacroDesk 
plus  a  project-scheduling  work- 
sheet and  a  log  for  project  time 
recording  and  analysis.  MacroDesk 
sells  for  $39.95  and  MacroManager 
for  $69.95;  both  are  available  now. 

Musicians  will  be  interested  in 
new  software  from  Hybrid  Arts 
(Los  Angeles).  DX-Droid  and  Oasis 
take  advantage  of  the  ST's  high- 
resolution  graphics  and  built-in 
MIDI  (Musical  Instrument  Digital 
Interface)  ports.  DX-Droid  is  a  multi- 
featured  patch  editor  which  can 
even  generate  banks  of  new  sounds 
on  its  own  (for  the  Yamaha  DX-  and 
TX-series  synthesizers).  Oasis  is  a 
full-featured  sampling  wave-table 
editor  and  librarian  for  the  Ensoniq 
Mirage.  DX-Droid  is  available  now 
for  $244.44;  Oasis  should  be  avail- 
able soon  and  will  cost  about  the 
same  as  the  Atari  130XE  version 
($187.87). 

MichTron  (Pontiac,  Michigan) 
released  a  number  of  new  products 
including  ALT,  which  permits  you 
to  assign  strings  of  up  to  60  charac- 
ters to  each  of  the  36  Alternate-key 
combinations  ($29.95);  The  Anima- 
tor, a  graphics-animation  utility 
($39.95);  BBS  2.0,  a  revised  version 
of  MichTron's  earlier  Bulletin  Board 
System  ($79.95);  Cornerman,  a  desk 
accessory  with  notepad,  calculator, 
address  book/dialer,  character- 
code  chart,  clock,  and  a  game 
($49.95);  Echo,  which  lets  you  plug 
in  X-10  modules  for  controlling 
home  appliances  ($39.95);  Mighty 
Mail,  a  mailing  list  manager  and 
phone  book  ($49.95);  and  two  ar- 
cade-style games.  Major  Motion  and 
Mission  Mouse  ($39.95  each). 

If  you  like  to  write  your  own  soft- 
ware and  want  to  go  beyond  ST 
BASIC  and  DR  Logo,  a  few  new 
languages  are  being  released  for  the 
ST  this  summer.  Softworks  Limited 
(Chicago)  is  bringing  out  Softworks 
BASIC,  a  compiler  that  offers  ad- 
vanced features  such  as  data  struc- 
tures like  those  found  in  C  and 
Pascal.  The  XCALL  statement  can 
access  machine  language  routines, 
and  the  TOOLBOX  command  lets 
you  call  most  of  the  graphics  and 
sound  functions  built  into  the  ST's 
operating  system.  Price:  $79. 

Prospero  Software  Limited 
(London)  is  exporting  Pro  FOR- 
TRAN-77  and  Pro  Pascal,  two  high- 
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Collection 


COMPUTE!  Books  offers  you  a 
superior  line  of  titles  for  the  new 
Atari  ST.  Packed  full  of  useful  utilities, 
exciting  games,  in-depth  tutorials,  and 
valuable  applications,  these  clearly 
written  books  bring  you  fully  tested 
information  and  entertainment  for  the 
whole  family. 
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Atari- 
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Loqk  for  these  COMPUTE!  books  at  your  local  book  or  computer  store. 


You  can  order  directly  from  COMPUTE!  by  calling 
800-346-6767  (in  NY  call  212-887-8525)  or  by 
sending  your  payment  to  COMPUTE!  Books,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 

Please  include  $2.00  per  book  shipping  and  handling 
for  U.S.  and  surface  mail  or  $5.00  for  airmail.  North 
Carolina  residents  add  4.5  percent  sales  tax. 

Please  allow  4-6  weeks  for  delivery  from  receipt  of  order. 

COMPUTE!  books  are  available  in  the  U.K.,  Europe,  the  Middle 
East,  and  Africa  from  Holt  Saunders,  Ltd.,  1  St.  Anne's  Road,  East- 
bourne, East  Sussex  BN21  3UN,  England,  and  in  Canada  from 
McGraw-Hill,  Ryerson  Ltd.,  330  Progress  Ave.,  Scarborough, 
Ontario,  Canada  M1P  2Z5. 

COMPUTEi^  Publicationsjncfi 


Part  of  ABC  Consumer  Wagazines.  inc. 
One  ot  the  ABC  Publishing  Companies 
825  7th  Avenue,  *th  Floor,  New  York,  NY  \Q0\^ 

Pucurwn  of  COMPUT£i,  CCfclPlJTE*  t  GcHette.  COMPUTE'j  GoioHe  Dak.  CDMPtI£^  Bcsoki.  ira  COMPUTE'*  Apple  j^jxAcotont. 


COMPUTEi's  first  Book  of  the  Atari  ST 

Edited 

A  valuable  collection  of  ready-lo-type-in-ard-use  applications,  games,  and 
utilities.  Graphics  utilities  lil<e  "ST  Doodler,"  games  like  "Switchbox"  and 
"Tug-a-War,"  and  educational  programs  like  "Hiclmry  Dickory  Dock"  turn 
your  Atari  ST  into  everything  from  a  business  graphics  machine  to  a  powerful 
teaching  tool.  Tutorials  show  you  how  to  add  power  to  ST  BASIC  and  how 
to  add  excitement  to  your  own  creations  with  sound  effects.  A  disk  is  avail- 
able for  $15.95  which  includes  all  the  programs  in  the  book,  203BDSK. 
(September  release) 
$16.9S     ISBN  0-87455-020-3 

The  Elementary  Atari  ST 

William  8.  Sanders,  272  pages 

A  friendly,  easy-to-use  guide  to  the  Atari  ST,  this  book  takes  you  through 

connecting  your  computer,  loading  programs,  creating  graphics  and  music, 

and  writing  your  own  programs. 

$16.95     ISBN  0-B7455-024-6 

Elementary  ST  BASIC 

C-  Regena,  208  pages 

A  tutorial  and  reference  guide  to  the  ST's  impressive  graphics,  animation, 

and  sound  vMr\  complete  descriptions  of  ST  BASIC'S  commands,  syntax,  and 

organization.  A  disk  is  also  available  for  $15.95  which  includes  programs 

from  the  book,  343BDSK. 

$14.95     ISBN  0-87455.034-3 

COMPUTEI'S  Kids  and  the  Atari  ST 

Edward  H.  Carlson,  238  pages 

Easy-to-understand  instructor  notes,  lessons,  assignments,  and  lively  IHustra- 

tions  help  both  kids  and  adults  painlessly  learn  to  program  on  the  Atari  ST. 

The  latest  in  the  bestselling  series  by  this  author. 

$14.95     ISBN  0-87455-038-6 

COMPUTEi's  ST  Programmer's  Guide 

Editors  of  COMPUTE!,  356  pages 

A  comprehensive  reference  guide  to  the  Atari  ST,  this  book  explores  in  detail 
Logo  and  BASIC,  the  advanced  features  of  the  ST  such  as  GEM  and  TOS, 
and  every  aspect  of  programming  from  concepts  to  actual  program  writing, 
$16.95     ISBN  O-8745S-023-8 

Introduction  to  Sound  and  Graphics  on  the  Atari  ST 

Tim  Knight,  197  pages 

Thorough  descriptions  of  the  Atari  ST's  color  graphics  and  sound  abilities, 

plus  all  the  infomnation  needed  to  create  a  complete  sound  and  graphics 

system. 

$14.95     ISBN  0-87455-035-1 


All  the  exciting, 

entertaining,  and 

educational  games, 

applications,  and  utilities 

from  COMPUTE!  magazine 

are  now  available  on  disk 

for  your  Commodore, 

Atari,  Apple,  or  IBM 

personal  computer. 

The  COMPUTE!  Disk 


A  new  COMPUTE!  Disk  is  published 
every  month,  rotating  among  the  four 
major  machines  covered  by  COMPUTE!: 
Commodore  64  and  128;  Atari  400/800, 
XL,  and  XE;  Apple  Il-series;  and  IBM  PC, 
PCjr,  and  compatibles. 

Every  three  months  you  can  receive 
a  disk  with  all  the  quality  programs  from 
the  previous  three  issues  of  COMPUTE! 
that  will  run  on  your  brand  of  computer. 

Like  the  popular  COMPUTE!'s  Ga- 
zette Disk,  the  COMPUTE!  Disk  is  ready- 
to-load  and  error-free.  It  saves  you 
valuable  hours  of  typing  time  and  elimi- 
nates typing  errors. 

With  a  subscription,  you  will  receive 
one  disk  every  three  months  for  a  total 
of  four  disks  a  year — for  only  $39.95. 
That  saves  you  $20  a  year  off  the  single- 
issue  cost. 

Or  you  can  order  individual  issues 
of  the  Disk  for  $12.95  a  disk  plus  $2.00 
shipping  and  handling. 


Remember  to  specify  your  type  of 
computer  when  ordering  the  COMPUTE! 
Disk.  You'll  find  more  information  about 
this  month's  COMPUTE!  Disk  in  this 
issue.  (Note:  You'll  need  the  correspond- 
ing issues  of  COMPUTE!  magazine  to  use 
the  Disk  since  the  disk  will  have  no 
documentation.) 

For  fastest  service  when  ordering  a 
subscription  to  the  COMPUTE!  Disk,  call 
toll  free  1-800-247-5470  (in  Iowa 
1-800-532-1272). 

For  more  details  or  to  order  individ- 
ual issues  of  the  COMPUTE!  Disk,  call 
our  Customer  Service  Department  toll 
free  at  1-800-346-6767  (in  New  York 
212-887-8525). 

Please  allow  4-6  weeks  after  placing  an 
order  for  your  first  disk  to  arrive. 


COMPUTE!  Publications Jnc,^ 


One  of  tMe  ASC  Pi,D':ining  Comoonies 

325  7Tfi  Avenue.  6th  Floor  Mew  Yofk  NV  10019 


level  compilers.  Both  languages 
have  7-  and  16-digit  precision 
floating-point  math,  four-byte  inte- 
gers, and  the  ability  to  access  GEM 
routines.  Each  costs  $149,  (The  U.S. 
distributor  is  Apex  Resources, 
Brookline,  Massachusetts.) 

TDI  Software  (Dallas)  has  re- 
leased two  new  versions  of  its 
Modula-2  compiler,  including  a 
special  developer's  version  with  di- 
rectory search  paths,  a  symbolic  de- 
bugger, new  modules,  an  intelligent 
linker,  an  enhanced  text  editor,  and 
improved  documentation  on  GEM. 
The  regular  version  is  $79.95,  and 
the  developer's  version  is  $149.95. 
Upgrades  for  current  owners  are 
available  at  less  cost. 

Several  companies  are  releas- 
ing significant  small-business  soft- 
ware for  the  ST.  Timeworks 
(Deerfield,  Illinois)  is  introducing 
]Nord  Writer  ST,  a  word  processor 
with  an  85,000-word  spelling 
checker  and  thesaurus,  outlining, 
macro  keys,  and  GEM  interface; 
SwiftCak  ST,  a  spreadsheet  pro- 
gram which  can  translate  data  into 
pie  charts,  bar  charts,  scatter  dia- 
grams, line  graphs,  and  3-D  stag- 
gered bar  charts,  plus  sideways 
printing  for  wide  spreadsheets;  and 
Data  Manager  ST,  a  database  man- 
ager with  graphics  and  functions 
for  generating  labels  and  reports. 
All  three  programs  are  integrated 
with  each  other  and  sell  for  $89.95 
each. 

Sierra  On-Line  (Mountain 
View,  California)  is  releasing  a 
small-business  accounting  package 
called  ST  OneWrite.  It  automatically 
posts  ledgers  and  prints  out  checks 
on  standard  business  forms.  Price: 
$129.95.  Oxxi  (Long  Beach,  Cahfor- 
nia)  is  introducing  dbOne,  a  data- 
base manager  that  is  compadble 
with  dBASE  II  files.  Price:  $99,  And 
Dae  Software  (Dallas)  is  translating 
two  of  its  popular  IBM  PC  packages 
for  the  ST:  Dac-Easy  Accounting 
($69.95)  and  Dac-Easy  Payroll 
($49,95). 

A  variety  of  games  are  coming 
out  for  the  ST  this  summer, 
and  although  many  are 
translations  from  versions  previ- 
ously available  on  other  computers, 
some  are  brand-new. 

Activision  (Mountain  View, 
California)  is  introducing  Hacker  U: 
The  Doomsday  Papers,  a  sequel  to 


the  popular  Hacker  ($49.95),  and 
The  Activision  Little  Computer  Peo- 
ple Discovery  Kit,  which  simulates 
living  creatures  inside  your  com- 
puter. Little  Computer  People  is  al- 
ready available  on  other  machines. 
Another  Activision  product — 
which  isn't  a  game — is  Paintworks, 
a  graphics -design  program.  (Origi- 
nally known  as  N-Vision,  Paint- 
works  was  written  for  Activision  by 
Audio  Light.)  One  feature  that  sets 
Paintworks  apart  from  all  other 
drawing  programs  on  the  ST  is  that 
you  can  design  a  picture  taller  than 
the  screen — as  large  as  an  8V2  X 
11 -inch  page,  in  fact.  You  can  scroll 
the  picture  vertically  and  make  a 
full-size  hardcopy  with  an  appro- 
priate color  printer,  such  as  the  Oki- 
mate  20.  Price:  $69.95. 

The  Avalon  Hill  Game  Com- 
pany (Baltimore)  is  releasing  Spit- 
fire 40,  an  authentic  flight  simulator 
that  puts  you  in  the  cockpit  of  a 
Royal  Air  Force  fighter  plane  dur- 
ing the  Battle  of  Britain.  It  even 
recreates  the  fuel  pump  problems 
experienced  by  Mark  I  Spitfires 
while  diving.  Price:  $35,  Avalon 
Hill  also  is  working  on  a  football 
simulation  due  for  release  later  this 
year. 

Cosmi  (Wilmington,  Califor- 
nia) is  completely  rewriting  its  Su- 
per Huey  Helicopter  Flight  Simulator 
for  the  ST  to  take  advantage  of  the 
computer's  enhanced  graphics. 
Price:  $39.95.  And  Microprose 
(Hunt  Valley,  Maryland)  is  doing 
likewise  with  Siletit  Service,  its 
much-praised  World  War  II  subma- 
rine simulation.  Microprose  also 
hinted  that  two  more  of  its  simula- 
tions will  be  rewritten  for  the  ST 
later  this  year. 

Infocom  (Cambridge,  Massa- 
chusetts), which  recently  merged 
with  Activision,  introduced  a  few 
new  works  of  text-only  interactive 
fiction  for  $39.95  each.  (They're 
also  available  for  the  Amiga  and 
several  other  machines.)  Trinity 
places  you  in  London  just  as  World 
War  III  begins.  As  The  Bomb  begins 
exploding  overhead,  you  enter  a 
mysterious  portal  that  lets  you  visit 
the  time  and  place  of  every  nuclear 
device  ever  detonated,  including 
the  first  Trinity  test  in  New  Mexico 
in  1945.  Is  there  anything  you  can 
do  to  change  the  future? 

Moonmist,  Infocom's  second 
entry,  is  modeled  after  gothic  mys- 


tery novels.  You're  sent  on  a  jour- 
ney to  a  castle  in  England,  where 
you  become  involved  in  a  search  for 
hidden  treasure.  Along  the  way  you 
must  deal  with  local  superstitions 
and  ghosts. 

Commodore  Amiga 

After  missing  the  Fall  COMDEX 
and  Winter  CES — to  the  distress  of 
its  fans — Commodore  made  a  big 
showing  with  the  Amiga  at  the 
Spring  COMDEX  in  Atlanta.  How- 
ever, a  few  weeks  later.  Commo- 
dore significantly  scaled  down  its 
appearance  at  the  Summer  CES.  In- 
stead of  going  ahead  with  plans  for 
a  large  exhibit  on  the  main  floor. 
Commodore  switched  to  a  small 
meeting  room  on  an  upper  floor — 
the  same  meeting  room  occupied 
by  Atari  a  year  ago.  Even  more 
disappointing,  the  Amiga  was  no- 
where to  be  seen.  Commodore  ex- 
plained that  it  considers  the  Amiga 
to  be  a  high-end  personal/business 
computer,  not  a  consumer  com- 
puter, and  therefore  it  came  to  CES 
with  only  the  Commodore  128  and 
redesigned  64. 

Nevertheless,  several  other 
companies  introduced  Amiga  soft- 
ware at  CES,  and  the  big  news  at 
COMDEX  was  Commodore's  an- 
nouncement of  a  new  IBM  PC  emu- 
lator— the  Sidecar.  The  Sidecar  is  a 
plug-in  expansion  box,  not  to  be 
confused  with  the  currently  avail- 
able PC  emulator,  the  Transformer. 
The  Transformer  emulates  the  PC 
entirely  in  software;  the  only  hard- 
ware required  is  a  5  ¥4 -inch  floppy 
disk  drive.  When  the  Transformer 
was  finally  released  this  spring  after 
numerous  delays,  it  became  obvi- 
ous that  another  solution  would 
have  to  be  found  to  make  the 
Amiga  truly  IBM-compatible.  The 
Transformer  proved  to  be  less  com- 
patible than  its  designers  had 
hoped  and  was  widely  criticized  for 
its  slow  execution  speed. 

As  a  result.  Commodore  decid- 
ed to  take  the  more  conventional 
hardware  approach  to  emulation. 
The  Sidecar  is  basically  an  IBM  PC 
without  a  keyboard.  It's  a  large  box 
that  plugs  into  the  expansion  port, 
and  it  contains  an  8088  micro- 
processor, an  empty  socket  for  an 
8087  math  coprocessor,  256K  of 
RAM  (expandable  to  512K),  a  S'A- 
inch  disk  drive,  and  three  empty 
slots  compatible  with  PC  expansion 
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ATARI 

XM  301 39 

SUBLOGIC 
(Atari) 

Flight  Simulalor.  .31.95 
Night  Mission  Pinball .  1B.95 
Scenerv  Disks  EA        14,95 

ATARI 

1050 129 

SF314 219 

SF354 1 75 

ATARI 

130  XE Call 

65  XE Call 

520  si Call 

520  St  Monochrome . .  Call 

520  SI  Color    Call 

1027  Printer 145 

1040  St  (NEW) Call 

SYNAPSE 
(Atari) 

Synfile 29.95 

Syncalc 29.95 

Template 14.95 

BRODERBUND 
(Atari) 

Printshop 23.75 

Graphics  Lib.  I.ll.lll .  18.75 

Paper  Refill 12.95 

Karaleka      19.75 

UNISON  WORLD 

Prinlmaster ....  24.75 
Art  Gallery 16.75 

FIREBIRD 

The  Pawn 26.75 

Star  glider 26.75 

ACCESS 

Leader  board.    .24,75 

VIP 
(520  St) 

VIP  Professional    .109 

SUPRA 

Supra  300 39.95 

Supra  1200.    .  149.95 


SSI  (Atari) 

islam 24.75 

f^echraged 34.95 

Antietam 29.95 

USAF 34.95 

ACTIVtSlON  (Atari) 

HacWer 15.75 

Mindsfiadow 15.75 

Gtioslbusters....- 15.75 

Great  Am  Race 15.75 

Music  Studio 20,75 

Space  Shuttle 15.75 

ACTIVISION  (520  St) 

Borrowed  Time 29.75 

Music  studio 29.75 

Hacider 26.75 

Mindshadow 29.75 

MICROLEAGUE  (Atari) 

Baseball 24,95 

GMdisk 24.95 

Team  disk 14.95 

QUICKVIEW  (520  St) 

Zoomracks 49.95 

HABA  (520  St) 

Writer 49.95 

DISKNOTCHERS..S7.S5I! 


SUPRA 

1064IVIodem(C-64).49.95 


COMMODORE 

1670  Modem 155 


ANCHOR 

Volksmodem 55 

Volksmodem  12 179 


ACTIVISION  (Apple) 

Alter  Ego 28.75 

Little  People 24.75 

Mindshadow 24.75 

HacWer 24-75 

Gamemaker 24.75 

BRODERBUND  (Apple) 

The  Print  Shop 31.50 

Graphic  Librarys  EA,... 18.50 
Bank  St.  Writer  128K-.  42-75 

Bank  Si  Speller 42.75 

Carmen  Sandiego 22.75 

Karateka 22.75 

Captain  Goodnighl 22.75 

fiiluppel  Cruise £5.75 

P. S^  Companion 24.75 

Science  Kit 35.95 

MICROPROSE  (Apple) 

Crusade  in  Europe. ..24. 75 
Decision  in  Desert... .24.75 

F-15  Strike  Eagle 20.75 

NATO  Commander. .20.75 

Silent  Service 20-75 

Solo  Flight 20.75 

SSI  (Apple) 

Phantasle  II 24.75 

Wizard's  Crown 24.75 

Rings  of  Zilfin 24.75 

Colonial  Conquest. ...24.75 

Battlegroup 35.75 

NAIVI.   29.75 

MICROLEAGUE  (Apple) 

ML  Baseball 24.95 

General  Mgr 24,95 


COMMODORE 

128 CALL 

C  1571  Drive CALL 

C  1902-A CALL 

C  1541  Drive CALL 

C  1670  Modem  .        CALL 

Cl3S0fv(ouse 39 

C  1700  128  K  RAM     .145 
C  1750  512  KHAM  ,  ,  289 

JANE 35 

Perfect  Writer .  - 45 

Perfect  Calc 45 

Perfect  Filer 45 

COMMODORE 

1571 CALL 

1541 .CALL 

SYNAPSE 

Syncalc 29.95 

Template 14.95 

Loderunner  Rescue..  19.95 

Essex 24.95 

Brimstone 24.95 

MIndwheel 24,95 

ACTIVISION  (C-64/128) 

Alter  Ego 28,75 

Hackler 18.75 

Little  People 20.75 

Gamemaker 24.75 

Borrowed  Time ,  18.75 

Space  Shuttle 18,75 

Music  Studio 24.T5 

Mindshadow...-. 18,75 

Roadrace 18,75 

Fast  Tracks 22,75 

Count  Down 18,75 


MODEMS 


us  ROBOTICS 

Password  1200M         .189 

Password  1200F 229 

Password  300M  , ,  139 
Password  300F ,  ,  139 
Courier  2400 395 


HAYES 

Smartmodem  300.  .133 
Smartmodem  1200.  .  .377 
Smartmodem  1200B  347 
Smartmodem  2400   . .  598 


MONITORS 


SUPRA 

1200(520  ST) 149 


DIGITAL  DEVICES 

Pocket  Modem  AT Call 

CompuServe,. 18.95 


COMPUSERVE . .  18,95 


BRODERBUND 

The  Print  Shop 24.75 

Graphics  Library 

I.Tl.  Ill      ,,      ,-      -  1575 

Karateka 17,75 

Bank  St.  Writer,  ,29.75 
Lode  Runner    ,  ,  19.75 

Printshop  Companion  24.75 
Bank  St.  Speller .  ,  29,75 
Bank  St,  Filer    . ,  29,75 

Bank  SI,  Mailer 29.75 

Championship 

Loderunner 19.75 


SUBLOGIC 

Nightmission  Pinball     18.95 
Flight  Simulator  31.75 

Jet  Simulator 25-95 

Football 25.95 

Scenery  Disk EA.  14.95 

Set  1-6    ,69.95 


MICROLEAGUE 

Baseball 24.95 

GM  Disk.. 24.95 

Team  Disk 1 4.95 

Stat  Disk 14.95 


UNISON  WORLD 

Prim  Master  (Amiga)  .22,75 

Prim  Master  0-1281 22,75 

Prim  Master  C-64) 22,75 

Art  Gallery 16,75 


BATTERIES  INCLUDED 

Paper  Clip  ,  ,    .  35  95 

Consultant 35,95 

Paperclip 
w/  Spell  Pak 48.95 

FIREBIRD 

Elite 19.95 

Colossus  IV 21,95 


XETEC 

Font  Master  I!  64  ,      28,95 


CARDCO 

Numeric  Keypad  ,  ,  34.95 
CB/S  5-slot  Board  .  49,95 
CB/2  2-slot  Board  21.95 
S'More  Basic  Rom  .  39,95 

Write  Now 29,95 

Freeze  Frame  ,    ,      29,95 


TEKNIKA 

MJ-IO 175 

MJ'22 .250 

MS-305  RGB NEW 


AMDEK 

300  Green 118 

300  Amber 128 

COMMODORE 

1902  Color CALL 

1802  Color CALL 


SAKATA 

SG  100012"  Green  , , ,  .93 
SA  1000  12"  Amber ,, ,  109 
SG  1500  12"  Green  TTL- 119 
SA  1500  12"  Amber  TTL,  129 
STSi  Till  stand        29 


THOMSON 

CM36512V1 269 

CM36632 159 

PRINCETON  GRAPHICS 

MAX-12  Amber 175 

HX-12RGB 458 

SR-12RGB 575 


ZENITH 

ZVM  1220 95 

ZVM  1230 95 

ZVM  1240 149 


NEW  HOURS! 

Mon-Thur9AM-BPM 

Fri  9AM'6PM 

Sat  10AM-6PM 


LYCO  COMPUTER 
MARKETING  &  CONSULTANTS,  INC. 


NEW  HOURS! 

Moil-Tliur9AM-ePM 

Fri  9AM-8PM 

Sat  10AM-6PIVI 


^yco  Computeii  cAAa/ifcetit/ig  &  Coi/isuftante 


NEW  HOURS! 

Mon-Thur9AM-ePK 
Fri  9AM-6PM 
Sat  10AM-SPM 


AMERICA'S  MAILORDER  HEADQUARTERS 


SAVE  :=  PRINTERS' 


NEW  HOURS! 

Mon-ThLr8AM-8PM 

Fri  9AM4PM 

Sat  f  OAM-flPM 


1080 $199 

PANASONIC 

1080 199 

1091 228 

1092 325 

3131 257 

3151 399 

1592 439 

1595 NEW 

CITIZEN 

MSP-10 266 

MSP-15 377 

MSP-20-  --- 355 

MSP-25 528 

120-D 195 

Premier  35 469 


EPSON 

LX80 209 

FX85 369 

DX10 207 

HI80         - 355 

HS80 298 

FX286 529 

LQ800 529 

LQlOOO 659 


TOSHIBA 

P134Q 469 

P351  + 1149 

P341P 969 

P341S 999 

35»  Stieel  Feeder 529 


JUKI 

Juki  6100 339 

RS232  Serial  Board  55 

6100  Traclor 119 

6 1 00  Sheet  Feeder  209 

Juki  6300  757 


SEIKOSHA 

SP-lOOO  VC(C-64)  ...  185 
SP-1000  A  Centronics . .  197 

SP-1000I(BM 197 

SP-1000  AS  flS-232  ...  197 
SP-1000  AP  Apple  lie.    197 

BP-S200  I 649 

SP-1000  ribbon 8.50 

BP-5200  ribbon 12.50 

BP-5420 999 


BROTHER 

HR-15XL-P 359 

HR-15XL-S ...359 


OKIDATA 

Okimate  10 179 

182 214 

192 343 

193 553 


DIABLO 

D2S 549 

O80  1  F.  . 2395 

P32CQ  1 699 

P-33 1749 

C-150 999 

635 1029 


C.  ITOH 

1550  SP-i- Call 

D1040 Call 

Prowriter  Jr Call 

Prowriter  8510  SP-t-         Call 


LEGEND 

1080 Call 

1380 258 

1385 289 

808 148 


NX-10. 


CALL 


STAR  MICRONICS 


NX-10   NEW 

.    CALL 

NB-15   NEW 

.    CALL 

SB-15   NEW 

CALL 

SG-15 

367 

SD-10.      . 

.     319 

SD-15 

436 

SR-10 

469 

SR-15.       .     . 

578 

SB-10 

589 

Powerlype 

297 

COLOR  RIBBONS  NOW  AVAILABLEl! 


SILVER  REED 

EXP  420  P  209 

EXP  600  P  489 

EXP  800  P  649 


'DUST  COVERS 

Atari 

520ST 11.95 

130XE 6.99 

gooXL     RW) 

1050 

1025 

...6.99 
...7.99 

Commodore 

C12S  

...7.99 

1571/1541 

1902 

1702                     .  .      . 

....6.99 

..10.95 

.8,99 

Ce4Mc20 

Panasonic 

1090/1091 

1092 

-...6.99 

....a.99 
...8.99 

1093 

am 

DRIVES 

INDUS 

GT  Commodore 185 

TYMAC 

MDD-640  3Vi" 

Apple  Drive  640K 289 

COMTEL 

Enhancer  2000  (C-64)    .155 

TANDON 

■320K  %  '.i     Drive  .115 


INTERFACING 
CARDCO 

G-WIZ  (C-64)  .  47.95 
Super  G  (C-641 ...  .54 
C/fPS  (C-84) 37 


MICROBITS 

MPP-1150  (Alan) 54 

MPP-11S0XL  (Atari)  59 

rvlicroPrinI   (Alan) 39 

TYMAC 

Connection  (C-64) 55 

Tackier  (Apple) 49 

PPC- 100  (Apple) 39 


MICROTEK 

Dumpling  GX  (Apple).  ,59 
Dumpling  16K  (Apple)  89 
RV-611(r  (Apple)  .      ,49 

ORANGE  MICRO 


GflAPPLER+    (Apple). .85 
_  'appler  16K  (Apple^ 

orARge 


Grap 


pier  16K  (Apple) 

<JGE   (Apple) 

Grappler  CD  (t-64) 


149 
59 
79 


XETEC 

Super  Graphix  64 
Super  GraphixJR  64   . 


64 
45 


DISKETTES 

3,5"  DISKETTES 


3M 

SSDD 19.95 

DSDD 25.95 

MAXELL 

SSDD 18.99 

DSDD 28.99 

VERBATIM 

SSDD 17.99 

DSDD 25.99 


51/4"  DISKETTES 


MAXELL 

5V4"  SSDD 11.99 

5Vj"  DSDD 15.99 

SUNKYOUNG 

SKC5'/i"SSDD,       11.99 
SKC5'A"0SDD.  .  .  13.99 

VERBATIM 

5V4"SSDD    9.99 

5Vi"  DSDD 13.99 

BONUS 

5Vi"  SSDD 6.99 

5'A"  DSDD 8.99 


IBM-PC 

SUBLOGIC  (IBM) 

Jet  Simulator 34,95 

Scenery  Disks  EA....  14.95 
Set  1-6 - 69-95 

BRODERBUND  (IBM) 

Bank  St.  Writer 48.95 

The  Print  Shop 34.95 

Graphics  Library  1 2295 

Ancient  Ar!  of  War 27.95 

Champ  Lode  Runner. .22.95 
Karateka 22.95 

SYNAPSE  (IBM) 

Synsiock 6495 

Essex. 28  95 

Wizard  ol  Wall  S( 28.P5 

Bnmsione  2B95 

ACTIVISION  (IBM) 

Borrowed  Time 24.75 

MinOshadOWS 24.75 

Music  Studio 29.95 

Alter  Ego 29.95 

MICROLEAGUE  (IBM) 

M  L  Baseball 24.95 

General  Mgr 24.95 

85  Team  (Jsk 14.95 

LEADING  EDGE 

Nutshell 69.95 

Nutshell  Filer 149.00 


TOLL  FREE  1-800-233-8760 


TO  ORDER 

CALL  TOLL  FREE  1-800-233-8760 

In  PA  71  7-494-1 030 
Customer  Service  71  7-494-1 670 


or  send  order  to 
Lyco  Computer 
P.O.  Box  5088 

Jersey  Shore,  PA 
17740 


RISK  FREE  POLICY 

In-Stock  items  shipped  within  24  hours  of  order.  No  deposit  on  C.O.D.  orders. 
Free  shipping  on  prepaid  cash  orders  within  the  conlinenlal  U.S.  Volume 
discoun  ts  avai  lable.  PA  residen  Is  add  sales  lax.  APO,  FPO.  and  international 
orders  add  S5.00  plus  3%  for  priority  mail  service.  Advertised  prices  show 
4%  discount  for  cash,  add  4%  for  MasterCard  and  Visa.  Personal  cl5ecks 
require  4  weeks'  clearance  before  sfiippinQ.  Ask  about  UPS  Blue  and  Red 
label  shipping.  All  merchandise  carried  under  manufacturers  warranty.  Free 
catalog  with  order.  All  items  subject  to  change  wlthtout  notice. 


boards.  A  second  floppy  drive  or 
20-megabyte  hard  disk  is  optional, 
and  there's  also  provision  for  up  to 
two  megabytes  of  Amiga  memory 
expansion. 

When  the  Sidecar  is  booted, 
two  new  icons  labeled  PC  Mono  and 
PC  Color  appear  on  the  Amiga's 
Workbench  screen.  The  Sidecar  is 
designed  to  emulate  the  PC's 
monochrome  and  color/graphics 
modes,  and  clicking  on  one  of  these 
icons  selects  which  mode  to  use, 
PC-DOS  then  opens  up  as  a  win- 
dow on  the  Amiga  Workbench 
screen.  To  the  Amiga's  multitasking 
•operating  system,  the  PC  emulator 
is  simply  another  task — so  you  can 
simultaneously  run  one  or  more 
Amiga  programs  while  using  the 
emulator.  You  can  even  open  more 
than  one  PC  window  at  once,  if 
enough  memory  is  available.  You 
can't,  however,  multitask  PC  pro- 
grams, since  PC-DOS  isn't  a  multi- 
tasking operating  system. 

Commodore  says  that  this 
marriage  of  the  PC  and  Amiga  cre- 
ates some  interesting  possibilities. 
For  instance,  you  can  plug  a  hard- 
disk  expansion  card  into  one  of  the 
Sidecar's  slots  and  partition  the 
disk  for  use  with  AmigaDOS  as 
well  as  with  PC-DOS.  Amiga  and 
PC  software  can  run  concurrently 
and  exchange  data  using  a  common 
memory  area.  And  although  PC 
graphics  are  limited  to  four  simulta- 
neous screen  colors  as  on  a  real 
IBM,  you  can  select  those  four  col- 
ors from  the  Amiga's  much  larger 
palette  of  4096  colors. 

The  technology  for  the  Sidecar 
originates  from  the  two  IBM  PC 
clones  which  Commodore  sells  in 
Europe— the  FC-10  and  PC-20. 
(Commodore  was  going  to  intro- 
duce these  machines  into  the  U.S. 
market  at  Summer  CES,  but  can- 
celed its  plans  at  the  last  minute.) 
Unlike  the  Transformer,  the  Sidecar 
is  supposed  to  be  nearly  100  per- 
cent IBM-compatible  and  capable 
of  running  programs  at  the  full 
speed  of  a  regular  PC.  At  COM- 
DEX, we  saw  the  Sidecar  running 
Microsoft's  Flight  Simulator,  one  of 
the  toughest  tests  for  any  PC  clone. 

Scheduled  for  release  this  fall, 
the  Sidecar  is  going  to  be  priced 
relatively  low.  Although  Commo- 
dore has  not  officially  announced  a 
price  yet,  indications  are  that  it  will 
cost  $300  to  $500. 
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Another  interesting  Amiga 
peripheral  shown  at  COM- 
DEX was  the  FutureSound 
digital  sound  recorder  from  Ap- 
plied Visions  (Medford,  Massachu- 
setts). The  package  comes  with  a 
digitizer,  microphone,  recording 
software,  and  a  cable  that  plugs  into 
the  parallel  printer  port.  A  phono 
jack  on  the  digitizer  allows  you  to 
bypass  the  microphone  for  direct 
recording  or  to  mix  two  different 
sound  sources.  Any  sound  can  be 
recorded  and  played  back  at  any 
speed,  and  recorded  sounds  can 
also  be  played  by  your  own  pro- 
grams written  in  C  or  Amiga 
BASIC.  The  sampling  rate  can  be 
varied  from  a  few  samples  per  sec- 
ond to  28,000  samples  per  second 
(the  higher  the  rate,  the  greater  the 
quality — and  the  more  memory  re- 
quired). Price:  $175. 

An  Amiga  expansion  box  was 
announced  by  The  Gemstone 
Group  (Buffalo  Grove,  Illinois). 
Current  plans  call  for  eight  expan- 
sion slots,  512K  of  RAM  (expand- 
able to  eight  megabytes),  a  hard 
disk  interface,  and  a  realtime  clock 
with  battery  backup.  The  Gem- 
stone  Group  also  is  considering  a 
CD-ROM  interface  and  MIDI  ports 
as  additional  standard  features.  The 
box  is  scheduled  for  release  late  this 
summer  for  $995,  A  version  with 
eight  megabytes  of  RAM  installed 
is  tentatively  priced  at  $1,995. 

Golden  Hawk  Technology 
(Nashua,  New  Hampshire)  an- 
nounced a  MIDI  interface  with  in/ 
out  jacks  and  a  synchronization 
connector  for  controlling  drum  ma- 
chines and  other  devices.  It  hooks 
up  to  the  serial  port  and  is  priced  at 
$79,95. 

Amiga  musicians  will  also  be 
interested  in  SoundScape  Pro,  a 
MIDI  sequencer  system  from  Mi- 
metics  Corporation  (Palo  Alto,  Cal- 
ifornia). SoundScape  Pro  uses  the 
Amiga's  multitasking  operating 
system  to  make  multiple  music  pro- 
grams behave  like  separate  pieces 
of  studio  equipment,  all  tied  togeth- 
er through  a  software  patch  panel. 
It  provides  the  equivalent  of  a  MIDI 
clock  generator,  a  sampling  synthe- 
sizer, and  a  digital  tape  deck.  The 
price  is  $149.  Mimetics  also  is  re- 
leasing the  SoundScape  Digital 
Sampler  for  $99  and  a  MIDI  inter- 
face for  $49. 


Flow,  an  idea  processor  from 
New  Horizons  Software  (Austin, 
Texas),  is  designed  to  help  you  cre- 
ate and  organize  presentations,  re- 
ports, projects,  and  events.  It  takes 
advantage  of  the  Intuition  user  in- 
terface, but  also  provides  keyboard 
shortcuts.  Price:  $99,95. 

Byte  by  Byte  (Austin,  Texas) 
announced  two  Amiga  programs: 
InfoMinder,  a  hierarchical  database 
manager,  and  Write  Hand,  a  word 
processor.  InfoMinder  is  unique  in 
that  it  lets  you  combine  text  and 
graphics,  and  it  also  can  be  used  to 
program  custom  applications. 
Price:  $89.95.  Write  Hand  has  on- 
line help  screens  and  is  designed  to 
make  it  easy  for  small  businesses  to 
generate  form  letters.  Price;  $50, 

Electronic  Arts  announced  sev- 
eral programs  to  be  available  this 
summer,  including  Chessmaster 
2000  ($44.95);  DeluxePaint  Art  & 
Utility  Disk  #1,  a  supplement  to  the 
popular  DeluxePaint  ($29.95);  De- 
luxePrint  Art  Disk  #2,  a  supplement 
to  DeluxePrint  ($29.95);  DeluxeVi- 
deo,  the  long-awaited  presentation 
graphics  program  ($99.95);  Instant 
Music,  a  composition  tool  for  non- 
musicians  ($49.95);  Marble  Mad- 
ness, an  arcade-style  game  ($49.95); 
and  Ultima  III,  an  adventure  game 
($59.95). 

Access  Software  (Woods 
Cross,  Utah)  is  introducing  its  hit 
golf  simulator,  Leader  Board,  for  the 
Amiga.  As  realistic  as  this  program 
is  on  the  Commodore  64 — with  3-D 
animation,  true  perspective  view, 
detailed  landscapes,  and  lifelike 
sounds — it  should  be  even  better 
on  the  Amiga,  The  price  is  $39.95. 

Master  Designer  Software,  in 
cooperation  with  Mindscape, 
(Northbrook,  Illinois),  is  bringing 
out  a  series  of  five  new  games  for 
the  Amiga  in  late  1986/early  1987 
under  the  Cinemaware  label.  These 
games  are  described  as  interactive 
movies  that  combine  classic  movie 
themes  with  sophisticated  com- 
puter graphics.  All  are  role-playing 
games,  and  the  graphics  imitate 
film  effects  such  as  3-D  movement, 
zooms,  cuts,  pans,  close-ups,  and 
changes  in  perspective.  The  titles 
scheduled  so  far  include  Sinbad  and 
the  Throne  of  the  Falcon,  The  King  of 
Chicago,  S.D.I.,  Defender  of  the 
Crown,  and  Star  Rush.  They'll  also 
be  available  on  the  Atari  ST  and 
Apple  Macintosh.  @ 
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IBM 

APPLE 

COMMODORE 


APPLE  SOFTWARE 


APPLE  SOFTWARE 


AbllHv 

ASC II  Eiprn! 


IBM 

i».95 
132.95 

Bwh  Stretl  Wrilai  S2.9S 

Cloul  119.9S 

Copy  II  Option  64.  74.00 

Comerstont  259.95 

CrosssUlk  94.95 

dBase  1114-  359.95 

Deadline  Manager  104.95 

Dollars  t  Sense  1D4.9S 

Easy  97.50 

EInslein  Wilier  118.95 

Eleclrtc  Disk  239.95 

Fontrll  1.S  B4,95 
Fntpks  1  thru  13      ea.  13.00 

Frameworti  II  369.95 

Gtmecard  II!  39.95 

Galo  23.E9 

In  House  Acoounlant  119.95 

Jtl  32.95 

Knowledgeman  2.0  319.95 

Lotus  CALl 

HngngYf  Money  104.95 

Micro  CwWxwIi  25.95 

Mfcrossfl  Chart  2.0  299.95 

Word  239.95 

Windows  69.95 

Mulon  Utillllet  55.95 

PFS:  Aecesi  59.95 

PFS;  Files  B2.S0 

PFS:  Fini  Sucoeu  229.95 

PFSi  Graph  82.50 

PFS:  Plan  82.50 

PFS:  Prool  59.95 

PFS:  Report  82.50 

PFS:  Write  12.50 

Print  Shop  36.95 

Print  Shop  Sr.  t\  22.95 

Print  Shop  flelin  13.95 

R:Base  5000  339.95 

Retlei  56.9S 

Remote  94.95 

Report  Card  33.00 

Ssmma  t  J69.9S 

Sidekick  protected  29.95 
SIdeklcli  not  pmlected  47.95 

Sideways  Ver.  'i  48.95 

Speedkey  104.95 

SuperCalc  3  219.95 

Superkey  35.50 

Sprky.'Sldek.  Combo  57.95 

Symphony  CALl 

Think  Tank  99.95 

Time  Is  Money  76.99 

Traveling  Sidekick  36.95 

Turbo  Database  TIbl  38.93 

Turbo  Lighting  56. 9S 

Turbo  Pascal  3,0  36.50 

Turtle  Pascal  8017  59,95 

Turbo  Prolog  69.95 

Turbo  Tutor  24.9S 

Ultima  III  34.95 

Visible  BOSS  49,95 

Volkswriter  Dti  «3  159.95 

Wet),  Spell  Checker  41.95 

Will  Writer  31.95 

Wizardry  38.95 

WorO  Perfect  219,95 

Wordstar  214.95 


Adv.  Construction 

Aigebl  aster 

Alpha  Plot 

ASC  II  Express 

Auto  Works 

Bag  ot  Tricks  2 

Bank  Street  Filer 

Bank  Street  Mailer 

Bank  Street  Writer 

Bank  Street  Spellei 

Bard's  Tale 

Beagle  Bag 

Beagle  Basic 

Beagle  Graphics 

Beneath  Apple  DOS 

BigU 

Bookends 

Captain  Goodnight 

Carmen  Sandiego 

Chmpshp  Ld.  Runner 

Chait'n  Graph  TIbx 

Computer  Quarterback 

Crossword  Magic 

Crypt  ol  Medea 

Database  Toolboi 

Dasle  Draw 

D-Code 

DiskOuIck 

Collars  S  Sense 

DOS  Boss 

Double^Take 

Eidolon 

Essential  Data  Dup 

EitraK 

Fantavlsion 

FaiCat 

Flex  Typ« 

FontriKt.S 

Fntpks  1  thru  13      ea 

Font  Works 

Forecast 

Frame-Up 

Gato 

GlJoe 

Graphics  Department 

Graphics  Expander 

Graphworht 

GPLE 

Handler  Package 

impossible  Mission 

1.0.  Silver 

Jeeves 

Karateka 

Knight  ot  Diamonds 

Kids  on  Kays 

Kid  Writer 

King's  Quest  I  or  II 

Koronis  m 

Legacy  ot  Llylgamyn 

List  Handler 

Locksmith 

Mngng  Yr  Money 

Mathmue 

Megaworks 

Merin 

Merlin  Pro 

Merlin  Combo 

Uiao  Cookbook 

Mitljonalre 

Minlpli 

Moeblus 

MouseWrite 


30.75 
34.55 
24.69 
72.50 
27.95 
28.00 
38.95 
38.95 
38.95 
38.95 
26.50 
14.95 
17.95 
29.99 
13.95 
16.95 
64.95 
19,95 
22.45 
19.45 
23.95 
27.95 
10.00 
21.95 
23.95 
13.95 
19,95 
14.95 
66.60 
11,95 
17.95 
23.50 
41,95 
19.95 
26,95 
17.95 
14.95 
53.25 
11.00 
34.95 
36.00 
14,95 
20.45 
I9.9S 
64.99 
21.95 
57.95 
24.95 
69.95 
23.50 
14.95 
29.95 
19,45 
19,50 
17.95 
16.89 
29.95 
23.49 
22.50 
39.95 
56.95 
102.00 
27.95 
64.95 
33,59 
54.95 
63.95 
21.43 
22,50 
14.69 
14.95 
71.95 


Muitiptan  DOS  3.3 
Munch- A- Bug 
NATO  Commar^der 
PFS;  Plan 
PFS:  Access 
PFS:  Write 
PFS:  File 
PFS;  Report 
PFS:  Grapir 
PFS:  First  Success 
Piece  of  Cake  Math 
Pinpoint 
Prince 

Printographer 
Print  Shop 

PriShpGr.  t1,2,  or3 
Prim  Shop  Comp 
Probyler 
Pronto  DOS 
Prof,  tour  golf 
Quicken 
Report  Card 
Rescue/Fractalus 
Reportworks 
Rescue  Raidefs 
Science  tool  kit 
Sensible  Grammar 
Sensible  Spelter 
Shape  Mechanic 
Sideways 
Silicon  Salad 
Skyiox 
Speilworks 
Spitlire  Simulator 
Sticky  Beat  ABC 

Basitel  Bounce 

Car  Builder 

Math 

Numbers 

Opposite! 

Reading 

Speilgrabber 

Townbuilder 

Typing 
Summer  Games  I  or  II 
SuperCalc  3A 
Terrapin  Logo 
Think  Tank 
Thinkworks 
Time  is  Money 
Tip  Disk  A 
Transylvania 
Triple-Dump 
Turbo  Database  TIbi 
Turbo  Pascal  1.0 
Turbo  Tutor 
Typefaces 
Ultima  III 
Ultima  IV 
Understanding  HE 
Universal  Tile  conv 
Ulility  City 
Versefom 
Video  Toolbox 
Visable  6502 
Wilderness 
Winter  Games 
Wizardry 

Wizard's  Toolbox 
Wiiprint 
Word  Handler 
Word  Perfect 
World's  Grtst  Ftbali 
Write  Choice 


65.95 
23.95 
19.45 
69.15 
44.00 
69.95 
69,95 
69.95 
69.95 

126,90 
15.95 
39.95 
48.95 
23.95 
26.69 
13.95 
21.95 
17.95 
14.95 
25,89 
51.96 
32,95 
23,50 
64,95 
24,95 
32,95 
52,95 
64,95 
23,95 
29,96 
12,69 
24,50 
29.95 
24,75 
23.75 
23.75 
23,75 
23,75 
23,75 
23.75 
23.75 
23,75 
23,75 
23,75 
22.45 

109.95 
59.95 
69.89 
64.95 
57.45 
12.00 
19.50 
16,95 
27.95 
34.95 
20,50 
10,59 
33,25 
33.25 
17.95 
24.95 
15.25 
43.45 
23.95 
31,75 
18.95 
21.45 
26,50 
23,95 
14.25 
39.95 
125.95 
22.45 
26.45 
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Aerojet  24.95 

Air  Rescue  I  21,95 

Bard's  Tale  28,50 

Ballblazer  23,49 

Back  to  Basics  134,95 

Bank  Street  Storybook  27.95 

Bank  Street  Speller  34.95 

Bank  Street  Writer  34.95 

Basic  Toolkit  29.95 

Blazing  Paddles  24.95 

Brrwed  Time  641126  20.95 

Color  Me  20.95 

Cmdwn  to  Shidwn  29.95 

Crossword  Magic  30.00 

Fast  Tracks  20.95 

Gertrude's  Secrets  20.95 

G  I  Joe  19,95 

Graphics  Magician  27.95 

Grappler  CD  84.95 

Hacker  20,95 

Jet  64/128  27.95 

Jet  Combat  Slmulalo<  20.95 

Karaleka  19,45 

Kennedy  Approach  24.95 

Kola  Pad  54.95 

Kung  Fu  20,95 

Little  Comp.  People  24.95 

Mali  Order  Monsters  24.95 

Merlin  34,95 

Mig  Allay  Ace  24.95 

Mulllplan  64A26  43.95 

Music  Sliop  11.96 

Nato  Commander  19.45 

Paper  Clip  62.95 

PFS:  File  54.95 

Print  Shop  29,95 

Print  Shop  Comp.  2t  ,95 

Pr.  Shop  Gr.  1.2,or  3  13,95 

Rescue  on  Fractaius  23,50 

Road  Race  20,95 

Scrabble  64/121  27.95 

Sideways  20.95 

Silent  Service  19.45 

Spitfire  Ace  20.95 

Spreadsheet  34,95 

Spy  vs.  Spy  20.95 

Sticky  Bear  ABC  23,75 

Numbers  23.75 

Opposiles  23.75 

Sfapes  23.75 

Sumnier  Games  I  or  II  22.45 

Temple  ol  Apahal  TrII.  22.45 

Winter  Gams  21.45 

Wodd'B  Grtst  Bsball  19.45 

World's  Grtst  Ftbali  22.45 


Clip  Art  (Vol  1) 
Clip  Art  (Vol  2| 
Copy  II  - 

Crusade  In  Europe 
Cut  t  Paste 
Cutthroats 
deadline 
Early  Games 
Easy  as  ABC's 
Enchanter 
Family  Roole 
night  Sim  II 
Friction  Factory 
F-tS  Strike  Eagle 
Ghost  Busters 
Hitchhiker's  Guide 
inlidei 

Load  Runner 
Magic  Spells 
Mastertype 
Malh  Blaster 
Micro  Lg.  Baseball 
Micro  Lg.  Manager 
Micro  Lg.  Team 
Uind  Forever  Voy. 
Music  Construction 
Newsroom 
One-On-One 
PItstop  II 
Pianetlall 
Prim  Shop  Refill 
Reader  Rabbit 
Sargon  III 
Sat  (Hereon  Brace) 
Sesstaiker 
Sorcerer 
Solo  Flight 
Speed  Reader  II 
Spell  n 
Spy  Hunter 
Starcross 
Suspect 
Suspended 
Temple  ol  Apshal  TrI 
Typing  Tutor  III 
Will  Writer 
Wishbringef 
Witness 
Word  Atttck 
Word  Spinner 
World's  Grtst  Bsbal 
Zorki 
Zork  II  or  III 


15.95 
21.95 
18.50 
22.95 
23.00 
23.69 
28,00 
15.95 
20.95 
23,69 
149,95 
33,89 
15.9S 
19.45 
22.00 
22,00 
26.00 
19.45 
20.75 
24.89 
26.95 
22,50 
27.95 
13.95 
30,95 
24.75 
30.50 
24.50 
23.50 
22,00 
12.25 
25.95 
27,20 
46.99 
22.00 
26.00 
19,45 
33.95 
26,95 
26.00 
21.00 
26.00 
26.00 
22,45 
29,75 
26.45 
27.95 
22.00 
26,95 
23.95 
19,45 
22.00 
25,00 


CompuServe  Starter  21.96 

Dstacase  8,99 

Disk  Nolchet  4.95 

Rip-n-Rle  14,95 

Leraon  31.95 

Lima  43.95 
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80  Col.  64K  Card 

49.95 

Apple  Cat  II 

164.95 

Gibsoi^  Light  Pen 
Grappler  Butlered 

148.00 

130.95 

Grappler  - 

71.95 

Grappler  (serlal| 
Grappler  C 
Hotllnk 

71.95 

71.95 

54.95 

Kraft  Joystick 

25.95 

Koala  Pad  • 

70.49 

Math  II  Joystick 

26.20 

Mach  III  Joystick 

12.20 

Micromodem  HE 

139.95 

MiHOSCi  A2  Drive 

144.95 

Microsd  lie  Drive 

149.95 

Mockingboard  A  or  B 

63.93 

— 

Mockingboard  C 

116.45 

Mockingboard  D 

126.45 

Mockingboard  A<MAK 

38.95 

Multlram  CX  512K 

209.93 

Multiram  HE  W64K 

124.95 

Muitivlew  II.  80/160 

199.95 

Paddlestlcks 

26.50 

Parallel  Printer  Card 

54.95 

Prometheus  1200A 

254.95 

Print-it 

123.00 

Super  Serial  Card 

90.95 

^^^^^ 

System  Saver  Fan 
Thunder  Clock 

59.93 
102.95 

^'  ■ '      ^ 

Wildcard  2 

74.95 

ZEE  89A  Ctieckmate 

63.93 

Zoom  HE 

109,00 

PRINTERS 

StarNX-lO 

259,00 

StarSG-15 

394.99 

Star  Powertype 

344.95 

Pilnter  Stand 

16,95 

Okidata  182P 

229,95 

Okjdata  192P 

399.95 

Okimate  20 

209,95 

Colored  pmtr  ribbons 
Color  Paper  Pack 

CALl 

13.95 

MONITORS 

Magitvoi  Monitors 

CALL 

Amdek  Color  600 

414.99 

Amdek  Video  300G 

127.99 

Amdek  Video  300A 

137.99 

YOUR  ORDER  FORM 
SILICON  EXPRESS 

5955  E.  Main  Street    Columbus,  Ohio  43213 

NAME ^ 


ADDRESS . 
CITY 


. STATE . 


.ZIP. 


CHARGE  CARD  «  . 


.  Exp.  Date . 


OTY. 

DESCRIPTION 

PRICE 

nr,rT,putBr  Typfl                                                    SHIPPING 

Phone 

Nn                                                             TOTAL 

No  aflflilional  sufchafge  on  Maslercard.  Visa,  or  School  purchase  orOers.  Persona!  checio 
allow  2  weeks  Shipping  cfiarges  a'e  S3  M  munifnym.  Ohio  res'nJenls  add  5'/i^  stale  sales 
lax.  Prices  sutjjec!  to  change  without  notjce, 
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Daniel  Aven 


Stretched  high  above  the  circus  arena, 
the  tightrope  beckons.  Can  you  walk 
all  the  way  across  the  rope  loithout 
falling  into  the  net?  This  interesting 
program  is  both  an  arcade  game  and  a 
typing  tutor.  The  original  version  was 
written  for  the  Commodore  64  and 
also  works  on  the  Commodore  128  in 
64  mode.  We've  added  new  versions 
for  the  Apple,  IBM  PC/PCjr,  Amiga, 
and  Atari  400,  800,  XL,  and  XE  com- 
puters. The  Commodore  64  version 
requires  a  joystick.  The  IBM  PC/PCjr 
version  requires  a  color /graphics 
card  and  BASICA  for  the  PC,  and 
Cartridge  BASIC  for  the  PCjr.  The 
Amiga  version  requires  512K  of  mem- 
ory and  Amiga  BASIC.  The  Atari  ver- 
sion requires  at  least  32K  of  memory 
and  a  joystick.  The  Apple  version 
works  with  either  a  joystick  or  game 
addles. 


Arms  outstretched,  you  venture 
cautiously  onto  the  tightrope.  The 
rope  quivers  for  a  moment,  then 
steadies.  Far  below,  in  a  packed 
circus  tent,  the  crowd  roars  its  en- 
couragement. Don't  worry,  there's 
a  safety  net  below.  But  you  won't 
entertain  the  onlookers — or  earn 
points  in  this  game — by  falling  into 
the  net.  Your  first  few  steps  are 
hesitant,  but  with  practice  your  pro- 
gress becomes  more  sure.  After 
what  seems  an  eternity,  you  reach 
the  other  side.  After  cheering  its 
approval,  the  crowd  cries  out  for  a 
repeat  performance, 

"Tightrope"  combines  a  novel 
game  idea  and  realistic  animation 
with  an  educational  goal.  You  can 
play  it  either  as  an  arcade  game  or 
as  a  typing  tutor.  In  game  mode,  the 
object  is  to  walk  all  the  way  across 
the  tightrope  without  falling  into 
the  net.  In  tutorial  mode,  you  must 
watch  for  a  letter  to  appear  next  to 
the  acrobat's  head,  and  type  it  on 
the  keyboard  before  time  runs  out. 

Type  in  and  save  a  copy  of 
Tightrope,  referring  to  the  special 
instructions  for  your  computer. 
When  you  run  the  program,  it  asks 
you  to  choose  between  a  game  of 
skill  and  a  typing  tutorial. 


A  Delicate  Balance 

If  you  choose  the  game  of  skill, 
your  goal  is  simple:  Move  the  ani- 
mated acrobat  all  the  way  across 
the  tightrope  without  falling  into 
the  net.  As  the  acrobat  walks  along, 
you'll  occasionally  begin  to  fall  to 
one  side  or  the  other.  But  there's 
always  time  to  recover  your  balance 
by  pushing  the  joystick  (or  key- 
board controls  in  some  versions)  in 
the  opposite  direction  of  the  fall.  If 
you  countermove  just  enough  to 
regain  your  balance,  all  is  well  and 
the  acrobat  begins  to  walk  again.  If 
you  move  too  far  in  the  opposite 
direction,  the  teetering  starts  all 
over  again. 

It's  a  delicate  balancing  act, 
and  it  grows  more  difficult  each 
time  you  make  it  across  the  rope. 
When  you  succeed  in  reaching  the 
opposite  side,  you  advance  to  the 
next  skill  level.  At  each  higher  lev- 
el, it  becomes  more  and  more  diffi- 
cult to  keep  your  balance. 

If  you  lose  your  balance  com- 
pletely, the  acrobat  falls  to  the  safe- 
ty net  and  bounces  a  few  times 
before  coming  to  rest.  At  this  point 
you  can  try  again  at  the  same  level 
or  return  to  the  main  menu  to 
choose  a  different  game. 

Your  score  is  based  on  how  far 
you  get  before  falling.  Each  suc- 
cessful step  is  worth  a  certain  num- 
ber of  points,  and  this  value 
increases  at  higher  levels.  In  addi- 
tion, bonus  points  are  awarded  for 
rapid  progress;  the  faster  you  move 
across  the  rope,  the  higher  the 
bonus. 

Typing  Tutor 

In  the  tutorial  version  of  Tightrope, 
the  object  is  the  same — move  the 
acrobat  across  the  rope  without  fall- 
ing— but  different  means  are  used 
to  keep  your  balance. 

When  you  see  a  character  ap- 
pear next  to  the  acrobat's  head, 
that's  your  cue  to  press  the  corre- 
sponding key  on  the  keyboard.  If 
you  type  the  correct  letter,  the  acro- 
bat straightens  up.  If  you  press  the 
wrong  key,  a  buzzer  sounds  and 
the  acrobat  teeters  even  more. 

To  remain  on  the  rope,  you 
must  continue  to  type  the  same  let- 
ters that  appear  on  the  screen.  In 
other  respects,  the  tutorial  version 
of  Tightrope  is  the  same  as  the  skill 
game. 


NEW 
$39500 


NEW 


1  28IC  Apple 


NEW 
$39500 


Compatible  Computer 

The  moment  you  buy  it  the  Laser  128  computer  is  compatible  with  virtually  all  software  for  the  Apple®  II, 
Apple®  He,  and  Apple®IIc.  AH  the  equipment  is  here.  Plus  the  Laser  128  gives  you  the  features  Apple®  forgot. 

•  5%"  Qisk  Drive  •  Additional  Disk  Drive  interface  •  Seriai  Printer  Interface 

•  Parallel  Printer  Interface  •  Modem  Interface  •  RGB  80  Column  Color  Interface 

•  Mouse  Interface  •  Hi-Res  Graphics  •  32K  Rom  •  128K  RAM  •  Expansion  Slot  for 

Apple®  Peripheral  cards  •  Battery  Pack  interface  •  Numeric  Keypad 

Limited  time  only    *  Programable  Function  keys  •  Carrying  Handle 

*Free  Magic  Window  lie  Professional 
Word  processor  ($  1 49.95  Value) 


MMhL«*r  128 
Purchai* 


Comparably  priced 

Apple®  lie 

system 

$1500.00 


Comparably  priced 

Commodore®  128 

system 

$850.00 


LASER128 


I 
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•Business 

•Students 

•90  Day 
Warranty 

•15  Day 
Free  Trial 


This  is  the  best  computer  buy  in  the  U.S.A.  You  get  the  complete  Laser  128  computer  with  all  the  features 
shown,  Plus  for  a  limited  time  only,  you  get  the  Professional  Magic  Window  lie  Wordprocessor  all  for 
only  $395.00.  We  have  tested  this  machine  with  over  500  software  titles  from  our  comprehensive  catalog 
and  the  Laser  128  runs  them  all  perfectly,  (it  even  runs  Appleworks®)  This  is  a  must  buy  for  new  and  old 
computer  buyers.  List  $648.95.  Sale  $395.00.      ^ist 


Centronics  cable  (for  Centronics  Printer} S  29.95 

Serial  Cable  (tor  Modem  hookup) $  34,95 

9"  80  Column  Hl-Res  Green  Monitor $199.00 


AppI*  and  Cemmcsdor*  or*  r*gll)«r»d  rro<i*marki  o*  Appl.  Compu<«r  InC-  and  Ccimmpdar.  BwtlftM.  MocWrwi  Inc.  rMp»c1lv»ly 


Sole  Accsssorlot  ■•'"  5'''« 

$  19.95  2nd  Disk  Drive $299.95  »m.« 

$  19,95  Professional  Anolog  Joystick $  39.95  »  It.M 

$59.95  RGB  cable  (RGB  Monitor  hookup) $24.95  »!•.*$ 


Add  $10,00  For  shipping,  handling,  and  Insurance.  Illinois  residents  pleose  add 
6'A%  sales  tax.  Add  20,00  tor  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  be  In  U,S,  Dollars,  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Coshler  Check,  Money  Order  or 
Personal  Check.  Allow  1 4  days  for  delivery,  2  to  7  doys  for  phone  orders,  1  day 
express  mall.  Prices  &  Avollablllty  subject  to  change  without  notice, 

VISA  —  MASTIR  CARP  —  C.O.P. CO. P.  on  phone  ordTs  only. 


Computer  Direct 

We  Love  Our  Customers 

22292  N.  Pepp«r  Rd.,  Barrington,  Illinois  60010 

3 1  a/38a-sa44  to 


COMMODORE  64 
COMPUTER 

(Order  Now) 


^139 


•  C128  Disks  79'  ea.* 

•  Commodore  Writer  64  $19.95 

•  13"  Coior  Monitor  $139.95 


COMMODORE  64 


Commodore  64 


Plus  $30.00  SSH 


Com.  1541 
Disk  Drive 

13"  Color 
Monitor 


$457 


CI  28  Commodore 

Computer  & 

1571  Disk  Drive 


•  Voice  Synthesizer  $39.9S 

•  12"  Monitor  $79.95 


CALL  BEFORE  YOU  ORDER 


SPECIAL  SOFTWARE  COUPON 


PRICES  AAAYBE  LOWER 


COMMODORE  64  COMPUTER  (139.95 

You  pay  only  $139.95  when  you  order  the 
powerful  84K  COMMODORE  M  COMPUTER!  LESS 

lhe  value  o)  «he  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  we  poek  with  your  computer  that  allows 
you  to  SAVE  OVER  $250  off  software  sale  prices! ! 
With  only  $100  of  savings  opplied,  your  net 
computer  cost  is  $39,951  \ 

*  CiaS  DOUBLE  SIDED  DISKS  79'  EA. 

Get  these  S'A"  Double  Sided  Floppy  Disks 
speciolly  designed  for  the  Commodore  138 
Computer  (1571  Disk  Drive).  100%  Certified, 
Llfatlma  Warranty,  Automatic  Lint  Cleaning 
Liner  InfiKided.  1  Box  of  10  -  $9.90  {99'  eo.),  5 
Boxes  of  10  -  S44.50  (89'  ea.),  10  Boxes  of  10 
-$79.00  (79' ea.). 

13"  COLOR  MONITOR  $139.9S 

You  pay  ortly  $139.95  when  you  order  this  13" 
COLOR  MONITOR.  LESS  the  value  of  the  SPECIAL 
SOFTWARE  DISCOUNT  COUPON  we  pack  with 
your  monitor  that  allows  you  to  save  over  $250  off 
softwore  sole  prices! !  With  only  5100  of  savings 
applied,  your  net  color  monitor  cost  is  only  $39.95. 
(16  Colors). 

Pramlum  Quality  1SO-170  CPS 
Comstsr  Aero  1«0  Print ar  »199.00 

The  COMSTAR  Aero  160  gives  you  a  10"  carriage, 
150-170  CPS,  9  X  9  dot  matrix  with  double  strike 
copabillty  for  13  x  18  dot  motrix  (near  letter 
quolity),  high  resolution  bit  imoge  (120  x  144  dot 
matrix),  underlining,  bock  spacing,  left  and  right 
margin  setting,  true  lower  decenders  with  super 
and  subscripts,  prints  slondard,  block  graphics 
and  speciol  characters.  It  gives  you  print  quality 
and  features  found  on  printers  costing  twice  as 
much! !  (Centronics  Parallel  Interface)  List  $499.00 
Sale  «1«9.M. 

4"  SAMSUNG  GREEN  SCREEN  MONITOR 

Super  High  Resolution  composite  green  screen 
monitor.  Perfect  for  80  column  use  with  The  CI  28 
computer  (Roq.  $19.95  Coble) 
List  $129.95  Sale  tSf.fS. 

H  COLUMNS  IN  COLOR 
COMMODORE  WRITER  M  WORD  PROCESSOR  tit.tl 

This  COMMODORE  WRITER  64  WORD  PROCESSOR 
Is  the  finest  ovollable  for  the  COMMODORE  64 
computer!  The  ULTIMATE  FOR  PROFESSIONAL 
Word  Processing.  DISPLAYS  40  or  SO  COLUMt^S  IN 
COLOR  or  block  and  white!  Simple  to  operate, 
powerful  text  editing,  complete  cursor  and 
insert/delete  key  controls  line  and  parogroph 
insertion,  automatic  deletion,  centering,  margin 
settings  ond  output  to  all  printers!  List  $99.00. 
SALE  tlf.fS.  tfrf.  Qty      Clot90ut  tf»m 


Wa  pack  a  SPECIAL  SOFTWARE  DISCOUNT 
COUPON  with  every  COMMODORE  64 
COMPUTER,  DISK  DRIVE.  PRINTER,  or 
MONITOR  ws  sell]  This  coupon  allow*  you 
to  SAVE  OVER  *150  OFF  SALE  PRICESII 


(Examplem 

t 

^^^" 

PROFESSIONAL  SOFTWARE 

COAAMODORE  64 

Name 

List 

tale 

Coupon 

Paperclip 

»S9,9S 

$34.95 

$39,95 

Canauttartt 

$39.9S 

t49.95 

S39.95 

Lead*r  Board 

$39.M 

$24.95 

S22.95 

Th»  Print  Shop 

m.is 

$27.95 

S2&.95 

ttailfty's  Pro)»c1 

$39.95 

$23.95 

SI  9.95 

Procllcalc  (spread  ihaet) 

»!9.9! 

$19.95 

SI  4. 95 

Voic«  Command  Modui* 

$79.95 

$39.95 

$34.95 

Nine  Princes  in  Amber 

J32.95 

J24.95 

S21.95 

Super  Bowl  Sunday 

$3S.0O 

(33.95 

$19.95 

Flip  and  File  Dlik  Filer 

$24.95 

SI  4.95 

SI  2.95 

Pro  Joy  Slick 

J19.95 

$13.95 

$10.00 

ParlyWore 

$19.95 

SI  4.95 

SI  1 .95 

Dust  Cover 

$  8.95 

S  6.9S 

S  i.Ki 

Financial  Planner 

Sylvio  Porter 

$59.95 

$38.95 

S35.95 

Ho  rd  boll 

$39.95 

»1B.« 

S16.« 

C64  Troubleihoot  S 

RepolrCuide 

$34.95 

SI  5.95 

SI  3.95 

(See  over  100  coupon  Items  In  our  catalog) 

Write  or  call  for 
Sample  SPECIAL  SOFTWARE  COUPOHl  | 


ATTENTION 

Computer  Clubs 

IVe  Off  or  Big  Volumo  Discounts 
CALL  TODAY! 


PROTECTO  WARRANTY 

All  Protecto's  products  carry  a  minimum  90  day  warranty. 
If  onything  foils  within  90  days  from  the  date  of  purchase, 
simply  send  your  product  to  ui  vio  United  Parcel  Service 
prepaid.  We  will  IMMEDIATELY  send  you  a  replacement  at 
no  charge  via  United  Porcel  Service  prepaid.  This  warranty 
proves  once  again  that  Wa  Love  Our  Cuttomert. 


CI  28  COMPUTER  &  1971  t499.00 

Now  you  can  get  the  C128  Commodore  computer 
S  the  1571   Disk  Drive  for  one  low  price  of  only 
$499.00.  List  $698.00 
SALE  $4»«.M. 

340K  1S71  COMMODORE 
DISK  DRIVE  S259.00 

Double  Sided,  Single  Disk  Drive  for  C-128  allows 
you  to  use  C-128  mode  plus  CPM  mode.  17  times 
faster  than  1541,  plus  runs  oil  1541  formats. 
List  $349.00.  Sola  (259.00. 

SUPER  AUTO  DIAL  MODEM  »29.9S 

Easy  to  use.  Just  plug  into  your  Commodore  64 
computer  ond  you're  ready  to  transmit  and 
receive  messages.  Easier  to  use  than  dialing  your 
telephone,  just  push  one  key  on  your  computer! 
Includes  exclusive  easy  to  use  program  lor  up  and 
down  loading  to  printer  and  disk  drives. 
0Mf  fn  U.S.A.  List  $99.00.  SALE  *».4S. 
Coupon  $24. 95. 

VOICE  SYNTHESIZER  »39.9S 

For  Commodore'64  computers.  Just  plug  it  In  ond 
you  can  program  words  and  sentences,  adjust 
volume  and  pitch,  make  talking  adventure  games, 
sound  action  games  and  customized  talkies!  1 
PLUS  ($19.95  value)  TEXT  TO  SPEECH  program 
Included  FREE,  just  type  a  word  and  hear  your 
computer  talk  —  ADD  SOUND  TO  "ZORK",  SCOTT 
ADAMS  AND  OTHER  ADVENTLJRE  GAMES! !  (Disk 
or  tape.)  List  $89.00.  SALE  S3«.«S 

12"  MAGNAVOX  (NAP>  SO  COLUMN 
MONITOR  WriTH  SOUND  *79.95 

Super  High  Resolution  green  screen  monitor.  80 

columns  x  24  lines,  easy  to  reod,  plus  speoker  for 

oudio  sound  included.  Fantastic  value. 

List  $129.00.  Sola  tTt.fS. 

(CI2e  coble  $19.95.  C64.  Atari  cable $9.95) 

PRINTER/TYPEWRITER 
COMBINATION  S229.99 

Superb  letter  quality.  daisy  wheel 

printer/typewriter  combination.  Two  machines  in 
one  —  just  a  flick  of  the  switch.  Extra  lorge 
carriage,  typewriter  keyboard,  outomotic  margin 
control  compact, lightweight,  drop  In  cossette 
ribbon!  (90  day  warranty)  Centronics  porollei 
Interface  Built  -in.  List  $349.00.  SALE  SlSf.tS.  (Ltd. 

Ofy.) 

14"  RGB  &  COMPOSITE 
COLOR  MONITOR  •239.93 

Must  be  used  to  get  60  columns  in  color  with  SO 
column    computers    (C12B    .    IBM  -   Apple).    (RGB 
Cable  $19.95)  Add  $14.50  shipping. 
List  $399.00.  SALE  «3$4.«$. 


•  LOWEST  PRICES  •  15  DAY  FREE  TRIAL 

•  BEST  SERVICE  IN  U.S.A.  •  ONE  DAY  EXPRESS  MAIL 


Sa. 


PHONE  ORDERS 

■  8  p.m.  C.S.T.  Weekdoys 


9  a.m.  -  12  noon  C.S.T.  Saturdays 


•  W  DAY  FREE  REPLACEMENT  WARRANTY 

•  OVER  500  PROGRAMS  •  FREE  CATALOGS 


Add  $10.00  for  shipping,  handling,  and  Insurance.  Illinois  residents  please  odd 
6'/.  %  sales  tax.  Add  20.00  for  CANADA,  PUERTO  RICO,  HAWAII,  ALASKA, 
APO-FPO  orders.  All  orders  must  b«  In  U,S.  Dollori.  WE  DO  NOT  EXPORT  TO 
OTHER  COUNTRIES  EXCEPT  CANADA.  Enclose  Cashier  Check,  Mon«y  Ord»r  or 
Personal  Check.  Allow  14  days  for  delivery,  2  to7  doyt  for  pftone  orders,  1  day 
express  mall.  Prices  S  Availability  subject  to  change  without  notice. 

VISA  -  MASTER  CAKD  -  C.O.O. C.O.p.  on  phona  orders  only. 


We  Love  Our  Customers 

22292  N.  Pepper  Rd.,  Borrington,  Illinois  60010 

312/38a-Sa44te 


Famous  Comstar  IVational  Brand 

1 0"  Printer  Sale 

Includes  Commodore 


Near  Letter  Quality 


Interface 


Near  Letter  Quality 


*  V^oifue  jfn  J-Ke  USJK 


•  100  CPS  draft/20CPS  near-letter  quality  •  Dot  Addressable  Graphics  •  Adjustable 

Tractor  and  Friction  Feed  •  Automatic  Paper  Loading  •  Right  and  Left  Margin 

settings  •  Pica,  Elite,  Condensed,  Italics  •  Superscript  •  Subscript  •  Underiine,  Bold 

print.  Double  Strike  •  Superb  NEAR  LETTER  QUALITY 


Easy  to  Use 


Fantastic 
Graphics 


2  Year 

limited 

Warranty 


The  Comstar  1000  is  one  of  the  best  values  in  the  United  States  today.  Print  your  letters,  documents,  programs, 
pictures,  and  more  at  a  blazing  100  Characters  Per  Second  or  20  ops  in  the  Near  Letter  quality  mode.  (  Looks  just 
like  it  came  from  a  typewriter.  )  Plus,  choose  your  printing  mode  (NLQ,  Draft)  from  your  wordprocessor  or  by 
simpiy  pushing  the  controls  on  the  front  panel.  Fantastic  Quality  at  a  Fantastic  Price. List  $349.00  SALES  179.95. 


Print  Method 

Serial  impact  dot  matrix  (9  pin) 

Print  Speed 

Draft-  100  CPS  NLQ-  20  CPS 

Character  Sets 

96  ASCII  Characters,  Mariner,  Symbols 
[includes  italic  font) 


Ribbon  (Life  exp.) 

Black:  cassette  (2.5  railllon  characters) 

DImenilont 

15.4  (W)  X  10.9  (D)  X  4.7  (H)  inch 

Weight 

Approx.  10  lbs 

Character  Spacing 

Fixed 


Line  Spacing 

1/6,  1/8,  7/72,  and  1/216  inch 

Paper  Feed 

Adjustable  tractor  and  friction  feed 

Paper  feeding  Direction 

Bl-dlrectional 

Copies 

2  plus  original 


U|3i3lv'    i^ 


.Imil-4 


Add  SIO.OO  for  shipping,  hondiing  and  insurance.  Illinois  residenls 
pleose  odd  6%  lo«.  Add  S20.0O  tor  CANADA.  PUERTO  RICO.  HAWAII. 
ALASKA,  APO-FPO  orders.  Canadian  orders  must  be  in  U.S.  dollors. 
WE  DO  NOl  EXPORT  TO  OTHES  COUNTRIES.  EXCEPT  CANADA. 
Enclose  Cashiers  Check.  Money  Order  or  Personol  Check.  Allow  U 
days  (or  delivery,  2  to  7  days  tor  phone  orders.  1  day  express  rnoil ! 
VISA  —  MASTER  CARD  —  CO.D. 

Uo  CO.D.  to  Canada,  APO-FPO. 


We  Love  Our  CustoTners 

22292  N.  Pepper  Rd.,  Barrington,  Illinois  60010 

312/382-5244  to  order 


"Tightrope"  for  the  Commodore  64,  an 
amusing  and  educational  game. 

Commodore  64/128 
Version 

This  version  of  Tightrope  requires  a 
joystick  plugged  into  port  2.  After 
you  finish  walking  across  the  rope, 
you  must  repeat  the  performance 
while  riding  a  unicycle.  At  succes- 
sive skill  levels,  the  acrobat  alter- 
nates between  walking  and  riding 
the  unicycle. 

Atari  Version 

Tightrope  for  the  Atari  requires  a 
joystick  plugged  into  port  1  and  at 
least  32K  of  Random  Access  Memory 
(RAM).  Move  the  joystick  right  or 
left  to  balance  the  acrobat. 

iBM  PC/PCjr  Version 

This  version  of  Tightrope  requires  a 
color/ graphics  card  and  BASICA  for 
the  PC,  or  Cartridge  BASIC  for  the 
PCjr.  Play  the  game  with  keyboard 
controls:  Press  the  Z  key  to  move 
left  (your  left,  not  the  acrobat's),  and 
the  slash  (/)  key  to  move  right. 

Amiga  Version 

Tightrope  for  the  Amiga  requires  at 
least  512K  of  RAM.  When  typing 
the  program  listed  below,  do  not 
type  in  the  left-arrow  symbol  at  the 
end  of  each  line;  it's  there  only  to 
show  you  where  the  line  ends  (we 
deliberately  chose  a  character  that's 
not  available  from  the  Amiga's  key- 
board). Instead,  wherever  you  see  a 
left-arrow  in  the  Amiga  listing, 
press  RETURN. 

The  Amiga  game  uses  the  same 
keyboard  controls  as  the  IBM  PC/ 
PCjr  version:  Press  Z  to  move  left 
and  the  slash  (/)  key  to  move  right. 

Apple  II  Version 

The  Apple  version  of  Tightrope 
works  with  either  a  joystick  or 
game  paddles  and  runs  on  any  Ap- 
ple Il-series  computer  with  either 
ProDOS  or  DOS  3.3. 
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For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  to  Typing 
In  Programs"  In  ttils  Issue  of  computei. 


Program  1 :  Commodore 
64/128  Tightrope 

RM   10   Ul=54296:U2=S4277iU3=542 
78jU4=54276iU5=54273:U6= 

54272 
CQ    20    ML5="gl3"+CHR${8)+"gX3<" 
+CHR?(3)4-"i2|XJ"+CHR$(16 
) +CHR$ ( 248 ) +"lIb3 ET3 "  : PO 
KE835,0 
MJ    30    POKE836,208:POKE830,0:PO 
KE831,216!POKE828,0(POKE 
829,64iPOKE56334,0 
GK    40    P0KE1,51:ML$=ML?:SYS{PEE 
K(S1)+256*PEEK(52)) sPOKE 
l,55iPOKE56334,l 
MJ    50    POKE53272,30:FORA=14336T 
014343 :READB sPOKEA, B : NEX 
T!FORA=0TO6:READC(A) :NEX 
T 
PK    60    GOTO8a:DATA24,60,60,24,l 
26,255,255,255,7,0,1,3,5 
,2,4 
MR    70    FORA=1TOX!POKE646,C(RND{ 
1)*7) !PRINT"@"; rNEXTjPRI 
NT: RETURN 
QE    80    PRINT  "  {CLRHPURI  "  f  :P0KE5 

3280,4!POKE53281,1 
FB    90    PRINT"{CLR){9    D0WN1"SPC( 

15)"1-   GAME" 
KS    100    PRINT" {2    D0WN]"SPC(15) " 

2-    TYPING" 
AP    110    GETA5:IFA5<>"1"ANDAS<>" 

2"THEN110 
SM    120    W=VAL(A5) 
PA   130    DATA0, 0,0, 0,0, 0,0, 56,0, 
0,92,0,0,252,0,0,92,0,1 
28,56,8,127,255,240,0,1 
68 
PH    140    DATA0, 0,216, 0,0, 248, 0,0 
,136,0,0,248,0,0,248,0, 
0,248,0,0,240,0,1,192,0 
XG    150    DATA0, 224, 0,0, 176, 0,0,1 

52,0,1,176,0 
SB   160    DATA1,240,0,3,176,0,1,2 

08,0,0,112 
RS    170    DATA0,0,48,0,0,4B,0,0,9 

6,0 
HS    180    DATAl, 240, 0,1, 240, 0,3,1 
76,0,3,48,0,1,176,0,0,1 
52,0,1,176,0 
FG    190    PRINT" [3    DOWN} 

t5    SPACES) ENTER    LEVEL    O 
F    DIFFICULTY    0-9 
CS    200    GETA5»IFA9=""THEN200 
DH    210    IFA?<"0"ORA5>"9"THEN200 
QX    220    B=VAL(AS):D=BiB=10-B 
SF    230    Pl=206:Y2=69iPX-201:PZ= 

205 
RA    240    IFW=2THENB=B*8 
PB    250    PRINT  "{CLRl {RED) 

[5    DOWNli3    +HBLK) 
B34    T3(RED}g3    +3 "  ; 
ER    260    F0EX=1T015!PRINT"(GRN}V 
CBLU}gQ3iWi"SPC(34)" 
{ BLU ) EQi  §W§ ( GRN  3 V" ; :NEX 
TX 
GC    270    PRINT" [DOWN} {2    UP) 

[4    RIGHT] (BLK}g 32    @3" 
RH    280    PRINT"  (3    RIGHT  )N(YELlvy 
VWWWWVWWWVWWW 
VWWyVlBLKjM" 
EG    290    PRINT" 12    RIGHT }NfYEL}vV 
VWVWVWWWWWWWW 
WVWWWlBLKlM" 
GJ    300    PRINT" (2    RIGHTJoEYJO 


CB 

310 

BM 

320 

HQ 

330 

XR 

340 

BQ 

350 

JD 

360 

HX 

370 

AQ 

380 

DJ 

390 

RG 

400 

KF 

410 

EH 

420 

SG 

430 

AE 

440 

CH 

450 

XF 

460 

HO 

470 

PE 

480 

HM 

490 

EM 

500 

HE 

510 

BH 

520 

CX 

530 

ER 

540 

BA 

550 

SA 

560 

KB 

570 

RB 

560 

KC 

590 

GP 

600 

HC 

610 

FB 

620 

EF 

630 

KE 

640 

RM 

650 

KB 

660 

KG 

670 

BR 

680 

JD 

690 

DE 

700 

RG 

710 

HP 

720 

RA 

7  30 

JX 

740 

B31    YlOPfDOWN} (LEFT JiNi 

(UP)" 

PRINT "{2    RIGHT}§Hi{UP} 

PRINT" (home) {9    DOWN} 

{5    RIGHT}^P3i83"! !X=31i 

GOSUB70 

PRINT"{UP) [4    RIGHT] 

{BLK}N" ; |X=32«GOSUB70 

print""  [3    RIGHT]  {BLK)N"f 

:X=33:GOSUB70 

PRINT" [up] {3    RIGHT) 

{BLK){RVS) (34    SPACES) 

tBLU)"iIFE=lTHEN510 

V- 5 3 2 48 1 1 FE-0 THENP RI NT " 

{HOME} (DOWN) (10  RIGHT ]P 

LEASE  WAIT  A  MOMENT" 

81=12288 ! S2=12 35 2 SS3-12 

416: 84=12480 i SS>12544 

FORX=0TO41 

READQli POKES 1+X,Q1 tPOKE 

S2+X,Q1 tP0KES3+X,Ql iPOK 

ES4+X , Ql I  POKES  5+X, Ql 

NEXTX 

FORS1=>12  3  30TO12350!READ 

Ql iPOKESl,Ql I  NEXT 

FORS2=12394T012414iREAD 

Ql : P0KES2 , Ql I  NEXT 

FORS3=12458T012478«READ 

Q1(P0KES3,Q1(NEXT 

FORS4=12522T012542  sREAD 

Q1>P0KES4,Q1<NEXT 

FORS5=12586T013182 iREAD 

Ql jP0KES5,Q1:NEXT 

86=13183 iS7=13247 

FORXX="0TO45  :READQ1  :POKE 

S6+XX,Q1 jPOKE87+XX,Q1 iN 

EXT 

FORS6=.13229T013246«READ 

Ql  !P0KES6,Q1 iNEXT 

P0RS7=13293TO13311 :READ 

Ql iP0KES7,Ql iNEXT 

IFE=0THENPR1NT"(HOME) 

(DOWN) (10    RIGHT) 

(20    SPACES)" 

T2=TI / 60 :POKE2040 ,192 

POKEV+3  9,4: POKEV+40 , 0 : P 

OKEV,65:POKEV+2,65iPOKE 

V+1 , Y2 : POKEV+3 , 69 : POKEV 

+16,3 

IFDA=0THENR9=9 ; POKEV+21 

,1 

IFDA=1THENR9=6  j POKEV+21 

,3 

P=192 

FORX=321T03  5STEP-3 

IFW=2ANDD=BTHENB=22 

IFW=2ANDD=9THENB=21 

C=(C+1)+D 

GOSUB1330 

PRINT  "(HOME) (RIGHT }SCOR 

E:  ■'C"{LEST)  [4    SPACES  )  "T 

AB( 16) "BONUS "T" (left)     " 

TAB (32) "LEVEL "D 

IFX<256THENPOKEV+16 ,0sP 

0KEV,X:P0KEV+2,X 

IFX>255THENPOKEV+16 ,3  SP 

OKEV,X-256 iPOKEV+2,X-25 

6 

F=0 :IFX<295ANDX>50THENG 

OSUB840 

IF  F=l  THEN1120 

Pl=Pl+l!lFPl>207THENPl= 

206 

POKE2041,P1 

POKE2040,P 

P=P+1 :IFP>196THENP=192 

GETA$:IFA$="  "THEKGOSUB 

1640 

JV=PEEK( 56320) 

JV=15-(JVAND15) 

IFJV=4THENGOSUB870 

IFJV=8THENGOSUB990 


GR    750    IF    F=l    THEN1120 

FR    760    NEXTX 

CB    770   C=C+T:T=0 

JK    780    IFDA=lTHENDA=0sy2=69lGO 

TOS00 
JS    790    DA=1:Y2=62 
FC    800    IPD<9THEbJB=B-l  tD=D+l 
XF   810    IFW=2ANDD<9THENB=B-7 
AS    820    IFD=9THENPX=200iPZ=204 
PG    830    GOTO510 
QR    840    R=INT(R9*RtJD(l))+I 
EJ    850    IFR>2THENRETURN 
GE    860    IFR=1THEN990 
CC   870    P=197!POKE2040,P 
BS    880    IPW=1THENGOSUB1930 
DX    890    IPW=2THENGOSUB1730 
KA    900    IFM1=1THENJV=8 
RR    910    IFH1=2THENJV=4 
SQ    920    IFJV=eTHENrP=P-l:POKE204 

0,PiIFP<197THENRETURK 
FB    930    IFJV=aTHEN8a0 
PE   940    P=P+l!POKE2040,P 
PB   950    GOSUB1330 
DH    960    PRINT "( HOME) "TAB ( 21 )T 
RS    970    IFP>196ANDP<PXTHEN880 
BR    980    F=liRETURN 
GB    990    P=201 iPOKE2040,P 
EK    1000    IFW=1THENGOSUB1930 
MX    1010    IFW=2THENGOSUB17  30 
CS    1020    IFH1=1THENJV=4 
AA    1030    IFH1=2THENJV=8 
MH    1040    IFJV=4THENP=P-1 
QG    1050   GOSUB1330 
BH    1060    PRINT " (home) "TAB ( 21 )T 
MQ    1070    IFP<201THENP=196:RETUR 

N 
BD    1080    IFJV=4THENPOKE2040,PiG 

OTO1000 
FX    1090    P=P+liPOKE2040,P 
QQ    1100    IFP>200ANDP<PZTHEN1000 
JS    1110    P=liRETURN 
HD    1120    Z2=6  9!P=20SsU7=200 
DF    1130    POKEUl,15tPOKEU2,0>POK 

EU3,247iPOKEU4,17 
PJ    1140    FORZ=Z2TO207STEP8 
QR   1150    U7=U7-B 
RQ    1160    POKEU5,U7 
BJ    1170    P0KEV+1,Z 
CA    1180    POKE2040,PiNEXTZ 
PX    1190    Z2=22+30 
JJ    1200    FORX=207TOZ2STEP-8 
SX    1210    U7=U7+8 
EB    1220   POKEU5,U7 
RJ    1230    POKEV+l,XiPOKE2040,Pt!i 

EXTX 
BC    1240    IFZ2<236THEN1140 
PF   1250   POKE54276,16 
BF    1260    POKE53269,0iPRINT" 

{[X>WN)(7   kightJ{yel)pr 

ESS    (RVS) RETURN [OFF)    T 

0    PLAY    AGAIN" 
PS    1270    PRINT "(DOWS)    PRESS   SPA 

CE    BAR   OR   FIREBUTTON    F 

OR   MENU" 
SS   1230  GETA5tJV-PEEK(56320)iF 

R=JVAND16 
GH   1290    IF(A?=""OR(A$<>"    "AKDA 

$<>CHR5{ 13) ) )ANDFR<>0T 

HEN1280 
SA   1300    C=0iMl=0iAV='0  iPX=201iP 

Z-205iE=l 
CF    1310    IFA$-CHR5(13)THEN250 
BA   1320   DA=0iGOTO80 
XA  1330   T3=3*INT(Tl/60-T2) iT=l 

000-T3 1 1  FT  <0THENT=0 
QF    1340    RETURN 

RS  1350  nATA0,240,0,l,240,0,3, 
176,0,3,48,0,3,48,0,2, 
24,0,12,8,0 

PG  1360  DATA0,120,0,0,248,0,1, 
216,0,1,140,0,1,134,0, 
0,131,0,3,130,0,0 


JC  1370  nA.TA0, 0,0, 0,0, 0,0, 28,0 
,64,46,0,48,126,0,28,4 
6,0,7,24,0,1,254,0,0,8 
7,128 

AH  1380  DATA0, 108, 224, 0,124, 56 
,0,68,4,0,124,0,0,124, 
0,0,248,0,1 ,216,0,3,24 
,0 

GP  1390  DATA6,24,0,:28,24,0,0,2 
4,0,0,48,0,0 

PC  1400  DATA0,0,0,0,0,0,32,24, 
0,16,44,0,8,124,0,4,44 
,0,3,16,0,1 ,252,0,0,17 
4,0 

AS  1410  DATA0,219,0,0,248,12a, 
0,136,64,0,248,32,0,24 
8,0,1,240,0,7,48,0,28, 
48,0 

SD  1420  DATA112,48,i3,128,48,0, 
0,48,0,0,96,0,0 

AQ  1430  DATA3, 32, 0,0. 64,0,0,15 
6,0,1,46,0,1,126,0,1,4 
4,0,1,152,0,1,25,0,0,1 
74,0 

QK  1440  DATA0,219,0,0,184,128, 
1,208,64,1, 224,32,131, 
240,0,255,240,0,0,48,0 

GC  1450  DATA0,48,0,0,4e,0,0,48 
,0,0,48,0,0,96,0,0 

GJ  1460  DATA0,8,0,0,16,0,0,39, 
16,0,75,160,0,95,192,0 
,75,123,0,127,128,64,5 
4,0,96 

CR  1470  DATA46,0,56,92,0,15,23 
2,0,1,252,0,0,60,0,0,6 
0,0,0,56,0,3,56,0,0,48 
,0,0,48 

GE  1480  DATA0, 0,16,0,0,24,0,0, 
48  , 0  , 0 

DM  1490  DATA0,0,0,0,0,0,0,112, 
0,0,184,8,1,248,48,0,1 
84,192,0,115,0,1,252,0 
,6,163,0 

ME  1500  DATA24,216,a,96,24B,0, 
128,136,0,0,248,0,0,24 
3,0,0,243,0,0,216,0,0, 
204,0 

KG  1510  DATA0,198,0,0,195,0,0, 
193,192,3,128,0,0 

GK  1520  DATA0, 0,0, 0,0, 16, 0,112 
,32,0,184,64,1,248,128 
,0,185,0,0,114,0 

AJ  1530  DATA1,252,0,2,168,0,4, 
216,0,8,248,0,16,36,0, 
96,248,0,0,248,0,0,248 
,0 

FC  1540  DATA0,204,0,0,198,0,0, 
195,0,0,193,224,0,192, 
192,3,128,0,0 

DK  1550  DATA0,8,0,0,4,0,0,226, 
0,1,113,0,3,241,0,1,11 
3,0,0,226,0,1,252,0 

CF  1560  DATA3,80,0,7,176,0,13, 
240,0,8,144,0,16,240,0 
,96,248,0,0,252,8 

PB  1570  DATA0, 207, 240, 0,192,0, 
0,192,0,0,192,0,0,192, 
0,1,128,0,0 

EX  1580  DATA0,64,0,16,32,0,39, 
176,0,37,208,0,47,208, 
0,47,208,0,37,208,64 

CA  1590  DATA19,144,48,8,240,32 
,7,208,96,3,176,192,0, 
243,128,0,158,0,0,252, 
0 

HE  1600  DATA0,240,0,1,128,0,1, 
128,0,1,128,0,0,192,0, 
0,192,0,l,e,0,0 

JE  1610  DATA0,0,12e,0,0,136,4, 
1,152,4,67,48,4,67,96, 
4,71,96,4,199,96 

BA  1620  DATA36,135,96,123,135, 
96,181,135,96.255,255, 


224,119,247,224,3,255, 

192 
AG    1630    DATA0,0,0,0,0,0,0,0,0, 

0,0,0,0,0,0,0,0,0,0,0, 

0,0,0,0,0 
CC    1640   T4=INT(Tl/60) 
CS    1650    GETA5!XFA$=""THEN1650 
CA    1660    T5=INT(Tl/60) 
KB    1670    T2=T2+T5-T4:RETURN 
QE    1680    DATA0,0,0,0.0,0,0,0,0, 

0,0,0,0,0,0 
CD    1690    DATA2,2,0,1,4,0,0,248, 

0,0,32,0,0,32,0,0,32,0 

,0,32,0 
DA   1700    nATA0,32,0,0,32,0,0,24 

8,0,1,36,0,2,34,0,3,25 

4,0,2,34,0,1 ,36,0 
DQ    1710    DATA0, 243,0 
CX    1720    DATA1,140,0,2,82,0,2,3 

4,0,2,82,0,1,140.0,0,2 

48,0,0 
RK    1730    Rl  =  ItJT(26*EKD(l)  )+l 
RS    1740    X9=INT(X/8)-4 
KS    1750    R2=Rl+64 
JS    1760  A=0 
KF    1770    PRINT "(HOME) {2    DOWN ) "T 

AB(X9)CHR$(R2) 
HC    1780    GETA$ iA=A+l 
PB    1790    IFA=flTHENMl=2:GOSUB190 

0IGOTO1830 
PD    1800    IPA$=""THEN17e0 
SF    1810    IFA5=CHR5(R2)THERMl=l! 

GOSUB1870SGOTO1830 
SB    1820    M1=2!GOSUB1840 
QC    1830    PRINT" (HOME )12    DOWN}"T 

AB(X9)"     "[RETURN 
SJ    1840    POKEUl,15:POKEU2,45tP0 

KEU3,165iPOKEU4,33 
AB    1850    POKEU5,6:POKEU6.5 
XJ    1360    FORT=1TO200:NEXTjPOKEU 

4,3  2tPOKEU5,0iPOKEU6,0 

j RETURN 
QE    1870    POKEUl,lSsPOKEU2,0iPOK 

EU3,247!POKEU4,17 
CX    1880    POKEU5,40:POKEU6.0 
KF   1890    FORT=1TO100!NEXTiPOKEU 

4,16 {RETURN 
ME    1900    P0KEUl,15iP0KEU4,33iP0 

KEU2,15 
EH    1910   FORT=50TO5STEP-2 tPOKEU 

5,16iPOKEU6,TiNEXT 
BB    1920    POKEU4,0iRETURN 
SB    1930   JV=PEEKC 56320) 
SE    1940    GETA5:IFA5<>""THEN1940 
XS    1950    JV='15-(JVAND15) 
SJ    1960    IFJV=-4ORJV=3THENAV-0iR 

ETURN 
AF    1970    AV=AV+liIFAV=BTHENAV"0 

I  RETURN 
CD   1980   GOTO1930 

Program  2:  Atari  Tightrope 

Version  by  Kevin  Mykytyn,  Editorial 
Programmer 

Ci  10  POKE  106,  9i:SRflPHICS  7 
: C=a!GRftPHICS  0SPDKE  7 
52, 1 sPOSITIDN  t4,10sPR 
INT  "PLEASE  WAIT" 

DP  20  FOR  A-30720  TO  31B41SR 

EAD  B:C-C+B!POKE  A.SsN 

EXT  AiIF  C<>70t4'?  THEN 

PRINT  "DATA  ERROR"iST 

OP 

SP  30  DIM  P»(32)  ,K»(1)  ,  A«(l> 
sOPEN  #4,4,4, "K: " 

Sh  40  GRAPHICS  0:POt<E  752,1: 
POKE  710,15iPOKE  709,0 
iPOSITIDN  14,9!PRINT  " 
<1)  SAME" SPOSJTION  14, 
11:PRINT  "<2)  TYPING" 

1150  BET  «4,K!K»-CHR«<K)  1  IF 
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"Tightrope"  for  Atari  -iOu,  SOU,  XL,  and 
XE  computeis. 

K»<>"1"     AfJO     i<*<>"2"     T 
HEN     50 

JH  60     M-VAL(K») 

PE  70     PRINT     "tS     DDrtNJ 

C3  SPftCESJENIEh  LEVEL 
OF  DlFh ICULTV   40-9) " 

JJ  80  BET  •4,K:  r<.«-CHh»  <K> 

HJ  90  IF  K*<"0"  OR  K»>"9"  TH 
EN  S0 

Dt  100  B-VAL  <K»)  ;  D-B:B=12-B 

DF110  IF  W  =  2  THEN  B  =  Bt4 

EC120  P«>-'01  1001  101  1  1  11  11  10 
220022022222222'*  :  BRAP 
HICS  7! DL-PEEK {560> +2 
aitPEEK <561 ) : POKE  DL+ 
6,2 

HI  130  SETCOLOR  0,5,3:SETCOL 
OR  1,13,12!P0KE  710,0 
sSCREEN-PEEK (8B)+256t 
PEEKtB"?)  +40 

(f  140  COLOR  liFOR  A»a  TO  14 

4  STEP  136:F0R  Q-0  TO 

a  STEP  8:PLQT  A+Q,16 

IDRAWTQ  A+a,e0:NEXT  Q 

1 PDKE  732, 1 

JR  130  FOR  C-14  TO  80  STEP  4 
iPLOT  A.CiDRAWTO  A+S, 
CtNEXT  C:NEXT  A 

M.  160  POKE  54279,  112:P0KE  5 

3277,3:P0KE  559,62:P0 

KE  623,1:F0R  A-704  TO 

70i!POKe  A,78jNEXT  A 

KB  170  COLOR  2iPL0T  4,16sDRA 
WTO  136,16tC0L0R  1 s PL 
OT  lB,72:DRftWT0  142,7 
2IDRAWT0  132,A4iDRAWT 
0  2S,64!DRAWT0  18,72 

M  1B0  COLOR  2sF0R  A-=30  TO  1 
32  STEP  6tPL0T  A , 65 S D 
RAWTD  A~7,71lPLaT  A, 6 
SiDRAWTO  At7,71iNEXT 
A 

ffi 190  PLOT  26,67iDRAWTO  28, 
71iPL0T  13S,68iDRAWTD 
132, 71 

ItE  200  COLOR  IsPLOT  18,73iDR 
AWTD  lB,a0iPLOT  142,7 
SiDRAUTO  142,e0iPLOT 
2B,73jDRAWT0  2B,76!PL 
OT  132,73iDRAWT0  132, 
76 

He210  COLOR  2:PL0T  1B,44:0R 
AWTO  143, 44i DRAWTO  14 
3,48iDRAUlU  ia,4B:0RA 
MTO  ie,44iDRAMT0  30,3 
IsORAWTU  143,31 

01220  C"0iFOR  Y-40  TO  32  ST 
EP  -4jF0R  X-23+3»C  TO 
142  STEP  3iaOSUB  240 
sNEXT  X;  C-C<-1  :  NEXT  Y 

M230  PX-6!  PZ'-l  1  I  i'2-44iPl-l 
3iB0T0  260 

LL  240  a>INT  (RND  Jl  )  I3>  I  IF  a> 
2  THEN  RETURN 

CN  250  FOR  Ai"0  TO  3l  POSITION 

X,Y+A;PRINT  #6|P«(Q* 

16  +  AI41-1  ,Q»16  +  A»4+4)  s 
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FN  280 

IQ  290 

le  300 

CC  3  1  0 

m  320 

HF  330 

D6  340 

fP  350 
EH  360 
HB  370 

CN  380 

0(390 
AJ  400 


NEXT  AjRETURN 
BL  260  GOSUB  1  1  20  :  T2  =  T  I  /  60 
P6  270  PUKE  203,  0:  P-0!  POKE  2 
06,205iPDt<E  207,Y2:PO 
KE  209, 1 161 A=USR (3072 
0) 

FOR  X-185  TD  48  STEP 
-1 

IF  W-2  AND  D*a  THEN  B 
"22 

IF  W-2  AND  D-9  THEN  B 
=  21 

C-C+l-fO 

QOSUB  1  1201  T3-=3«  (  INT  ( 
TI/60-T2)  )  i  T-1000-T3 
IF  T<0  THEN  T-0 
POKE  636,llP0KE  637,1 
J  PR  I  NT  "SCORE  I   ";Cl  I P 
OKE  657,16iPRINT  "BON 
USi   " J  Tj  "  " ;  : POKE  657 
,32!PRINT  "LEVEL:   " J D 
POKE  203,PlPOKE  206, X 
P-P+liIF  P>2  THEN  P-0 
IF  X<175  AND  X>50  THE 
N  GDSUB  460 
IF  PEEK(764>=33  THEN 
GOSUB  910 

IF  STICKt0)=7  THEN  GO 
SUB  490 

IF  stic;k(0)=-ii  then  q 

Q5UB  630 

NEXT  X 

C  =  C  +  Ti  T-0 

IF  D<9  THEN  B=B-1:D=D 

+  1 

IF  W-2  AND  D<9  THEN  B 

-B-3 

GOTO  260 

R-INT (29«RND( 1 ) ) +1 

IF  R>2  THEN  RETURN 

IF  R-1  THEN  630 

P-3iP0KE  203, P 

IF  M-1  THEN  eOSUB  108 

0 

IF  W-2  THEN  BOSUB  930 

IF  Ml-1  THEN  JV=11 

IF  Ml-2  THEN  JV-7 

IF  JV-11  THEN  P=P-1:P 

OKE  205, Pi  IF  P<3  THEN 

RETURN 
IF  JV-11  THEN  500 
P-P+l!POKE  205, P 
eOSUB  11203T3=3«INT(T 
I/60-T2) :T-1000-T3 
IF  T<1  THEN  T=0 
POKE  656,1(PDKE  657,2 
2 1  PRINT  "  ")T 
IF  P>2  AND  P<PX  THEN 
300 

POKE  20S,123QOSUB  760 
RETURN 

P-BjPOKE  205, P 
IF  W-1  THEN  eOSUB  108 
0 

IF  W>i2  THEN  BOSUB  950 
IF  Ml-l  THEN  JV-7 
IF  m-2  THEN  JV-11 
IF  JV-7  THEN  P-P-1 
GOSUB  11201 T3-3t (INT ( 
TI/60-T2) ) 1T-1000-T3 
IF  T<1  THEN  T-0 
POKE  636,liP0KE  637,2 
2 1  PRINT  '■   "IT 
IF  P<B  THEN  P-2IRETUR 
N 

IF  JV-7  THEN  POKE  205 
, Pi  GOTO  640 
P=P+1>P0KE  205, P 
IF  P>2  AND  P<Pr  THEN 
640 

Z2-44lP-12iU7-200 
FOR  Z-Z2  TO  158  STEP 
3 
n 780  SOUND  1  ,  Z,  10,  IS 


cn  410 

ND  420 

II  430 

KJ  440 

6K  450 

Lll  460 

PL  470 

LD  480 

HJ  490 

SB  300 

DI  510 

1«  520 

FH  530 

DE  540 

cn  350 

FA  560 

JN  370 

NN  aS0 

AA  590 

LA  600 

ED  610 

HI  620 

U  630 

ee  640 

DH  650 

FK  660 

IH  670 

KL  6  80 

PA  690 

NN  700 

ft  710 

P£  720 

LL  730 

FA  740 

LI  750 

U  V60 

fl  770 

UN  790 

P 

HLe00 

1 

Z 

Mieis 

F 

P1IS20 

S 

DEe30 

P 

_ 

FF840 

I 

1 

AC  850 

S 

6 

•■ 

A 

5 

!)KB60 

P 

R 

E 

SL  8  70 

I 

p 

1 

HL8B0 

I 

S 

SI  890 

P 

- 

06  900 

s 

BK  910 

p 

2 

BP  9  20 

G 

EB  930 

G 

6 

BJ  940 

T 

00  950 

R 

EO  960 

X 

HE  970 

R 

EP  9B0 

A 

CN990 

P 

K 

P)  1000 

DK  1 0 1 0 

EB  1020 

DF  1030 

DD  1040 

DH  1050 

LD  1060 

a  1070 

KF  1080 

JK  1090 

LF  1100 

HF  1  1  1  0 

JP  1120 

CK  1130 

KP  1140 


Ml  1150 


m   1160 


OKE  205,PiPOKE  207, Z 

NEXT  Z 

2-Z2+30 

OR  X-138  TO  Z2  STEP 

3 

OUND  1 , X, 10, IS 

OKE  207,XiPOKE  205, P 

NEXT  X 

F  Z2< 140  THEN  770 

OUND  1,0,0,0:PQKE  65 

,2:P0KE  6a7,5iPRINT 

PRESS  RETURN  TO  PL 
Y    AGAIN":POKE  764,25 

RINT  "PRESS  SPACE  BA 
OR  FIREBUTTON  FOR  M 
NU"  i 

F  PEEK<764)-12  THEN 
OKE  206,0sE-l: AV-0S M 
-01 C-0lPX-201iPZ-205 
PRINT  " (CLEAR> " : GOTO 
230 

F  PEEK  (764)033  AND 
TRIQ(0)<>0  THEN  870 
OKE  206,03 E-l3C-0:Ml 
01 AV-0iPX-20l3  PZ-205 
OTO  40 

OKE  764, 255iG0SUB  11 
01 T4-INT (TI/60) 
ET  #4, A 

OSUB  11201 T5-INTCTI/ 
0) 

2-T2+T5-T4I RETURN 
1-INT (26«RND (1 ) >+l 
9-INT ( (X-4B) /4> 
2-R1+32 
-0 

OKE  764, 255iK-255i PO 
E  SCREeN+X9,R2 
IF  PEEK(764)<>255  TH 
EN  SET  #4,KiK-K-32 
A-A+1:IF  A-B  THEN  Ml 
-2IQDSUB  I060lSOTa  1 
050 

IF  K-2H5  THEN  1000 
IF  K-R2  THEN  Ml-1 i SO 
SUB  1070t3OTO  10S0 
M1=2:G0SUB  1060 
PDKE  SCREEN+X9,0i RET 
URN 

FDR  V-15  TO  0    STEP  - 
1 : SOUND  1 , 200, 10, V:N 
EXT  V: RETURN 
FOR  V-15  TO  0  STEP  - 
liSQUND  l,60,10,VtNE 
XT  Vs RETURN 
JV-STICK (0) 
IF  JV-7  OR  JV-11  THE 
N  AV=0:RETURN 
AV-AV+liIF  AV"B  THEN 

AV-0S  RETURN 
QOTO  1080 

TI -PEEK (18) «655  36+PE 
EK<19) »2S6+PEEK (20) : 
RETURN 

DATA  169,0,133,186,1 
65,209, 133, 1B7, 162,3 
, 160,0, 152, 145, 186, 2 
00,206,251,2  30, 187,2 
02, 16,246, 160,34, 162 
DATA  120,169,7,32,92 
,228, 104,96,216, 169, 
0, 133,77,32,45, 120, 7 
6,98,228, 165,206, 14  1 
, 0,208,24, 103 
DATA  8,141,1,208,24, 
105, B, 141,2,208, 165, 
205, 133,203, 169,0, 13 
3,204, 162, 6, 6,203,38 
,204,202,240 
DATA  17,224,3,208,24 
5, 165,203, 141 , 184, 12 
9, 165,204, 141, IBS, 12 
0,76,72, 120, 165,203, 
24, 109, 184, 120, 133,2 


03 

aN1170  DATA  16S, 204,  109,  IBS 
, 120, 133,204, lis, 203 
,24, 103, 186, 141 , 146, 
120, 165,204, 105, 1Z0, 
141 , 147, 120, 165,209, 
133, 204 

Ft  11B0  DATA  169,3,133,206,1 
69, 0, 133,203, 164, 207 
, 14S, 203,200, 162,0, 1 
B9, 255, 255, 145,203,2 
00 , 232 , 224 , 24 , 206 , 24 
5 

KF1190  DATA  169,0,145,203,1 
73, 146, 120,24, 105,24 
, 141 , 146, 120, 173, 147 
, 120, 10S,0, 141, 147, 1 
20, 230,204, 19B,208,2 
08 

011200  DATA  207,96,0,0,0,0, 
0,0,0,0, 96, 63,0,0,0, 
0,0,0,0,0,0,0,  1,  1,  1, 
1 

EC1210  DATA  1,3,56,60,124,5 
6,48,0, 124,255,234, 1 
24, 124, 124, 124, 124, 1 
24, 124, 124, 204, 134, 1 
34, 131, 131, 129, 3 

1(111220  DATA  0,0,0,0,0,0,12, 
248,0,0,0,0,0,0, 0,0, 
0,  0 

DC  1230  DATA  0,0,0,0,128,0,0 
,0,0, 0,0,0, 96, 63, 0,0 

,0,0,0,0,0,0,0,0,0,0 

KF  1240  DATA  0,0,0,0,56,60,1 
24,56,48,0, 124,255,2 
34, 124, 124, 124, 124, 1 
24, 124, 124, 124, 108, 1 
0B, 198, 195, 97 

JN  1250  DATA  96,193,0,0,0,0, 
0,0, 12,24S,0,0,0,0, 0 
,0,0,0,0,0,0,0,0, 128 
, 192, 128 

PI  1260  DATA  0,0,0,0,0,0,96, 
63, 0,0, 0,0, 0,0, 0,0,0 
,0,0, 0,0, 0,0,0, 56, 60 

HI  1270  DATA  124,56,48,0,124 
, 255,254, 124, 124, 124 
,  124,  124, 124, 124,  124 
, 108, 120, 120,60,54,2 
8,48,0,0,0,0 

It  1280  DATA  0,0,12,248,0,0, 
0,0,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0,0,0,0,0 

KD  1290  DATA  0,96,63,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0 
,0, 56,60, 124, S6,4B, 0 
, 127,254 

DK  1300  DATA  252,124,124,124 
, 124, 124, 124, 124, 124 
,108, 108, 198, 195,97, 
97,227,0,0,0, 0,0, 12, 
248, 0,0,0 

JC  1310  DATA  0,0,0,0,0,0,0,0 
,0,0,0, 128, 128,0,0, 0 
,0,0,0,0,0,0,1, 15,56 
,96 

till  1320  DATA  0,0,0,0,0,0,0,0 
,0,0,0, 0,56,60, 124,5 
6,48, 1 

CB  1330  DATA  127,234,252,124 
, 124, 124, 124, 124, 124 
,  124,  124,  108,  108,  l*?e 
, 193,97,99, 192,0,0, 0 
,  12,  120,  192, 0,0 

HJI1340  DATA  0,0,0,0,0,0,0,0 
,0,0, 0,0, 0,1 28, 0,0,0 
,0,0,0,0,0,0,0, 1,3 

EB1350  DATA  6,12,56,0,0,0,0 
,0,0,0,0,0,0,0,56,60 
,  124,56,48,  1 ,  127,254 
,252, 124, 124, 124 

fK  1360  DATA  124,124,124,124 
, 124, 108, 108,204, 198 
,99, 102, 192,0,28,48, 


96, 192, 128,0,0,0,0,0 
,0,0,0 

nC  1370  DATA  0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0 
, 1 , 15,56,96,0,0,0,0 

£8  1380  DATA  0,0,0,0,0,0,0,0 
, 56,60, 124, S6,4S, 1 , 1 
27, 254, 252, 124, 124, 1 
24, 124, 124, 124, 124, 1 
24, 108 

EN  1390  DATA  108,198,195,97, 
99, 192, 0,0, 0, 12, 120, 
192,0,0,0,0,0,0,0,0, 
0,0,0,0,0,0 

001400  DATA  0,128,0,0,0,0,0 
,0,0, 0,96, 63, 0,0, 0,0 
,0,0,0,0,0,0,0,0,0,0 

Hi  1410  DATA  0,0,56,60,124,5 
6, 48,0, 124,255, 254, 1 
24, 124, 124, 124, 124, 1 
24, 124, 124, 108, 108, 1 
98, 195,97, 96, 193 

110  1420  DATA  0,0,0,0,0,0,12, 
248,0,0,0,0,0,0,0,0, 
0,0 

NI  1430  DATA  0,0,0,128,192,1 
28,0,0,0,0,0,96, 63,0 
, 0, 0,0,0,0,0,0,0,0,0 
,0,0 

HP  1440  DATA  0,0,0,0,56,60,1 
24, 56,48,0,248,232, 1 
27, 124, 124, 124, 124, 1 
24, 124, 124, 124, 108, 1 
08, 198, 198,99 

6B  1450  DATA  67,199,0,0,0,0, 
0,0,0, 12,248,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0 
.0 

OE  1460  DATA  0,0,0,96,36,14, 
3,0,0,0,0,0,0,0,0,0, 
0,0, 0,0, 0,0, 0,0, 56, 6 
0 

0111470  DATA  124,56,48,0,248 
, 252,  127,  125,  124,  124 
,  124,  124,  124,  124,  124 
, 108, 108, 204, 198, 102 
, 195, 6, 0,0, 0,0 

FL  1480  DATA  0,0,0,0,0,224,5 
6, 12,0,0,0,0,0,0,0,0 
,0,0, 0,0, 0,0, 24, 12,6 
,3 

00  1490  DATA  1,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0, 1,0,0 
,56,60, 124, 56,48, 0,2 
48, 254 

811500  DATA  127,125,124,124 
, 124, 12  4, 124, 124, 124 
,108, 108,204, 108, 198 
,6, 14,0,0,0,0,0,0,0, 
0,0, 128 

BA  1510  DATA  192,96,48,0,0,0 
,0,0,0,0,0,0,0,0,6,6 
,6,3,3,3,1,0,0,0,0,0 

II  1320  DATA  0,0,0,0,0,0,1,1 
,1,1, 1,3,56,60, 124,5 
7,49, 1 

KL  1330  DATA  235,254,254,124 
, 124, 124, 124, 124, 124 
,124, 124,204, 140, 140 
, 134, 134, 134, 14, 192, 
192, 192, 128, 128, 126, 
0,  0 

C!  1540  DATA  0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0 
,3,7,3,1,0,1,3,6 

» 1550  DATA  28,0,32,48,159, 
192, 127,0,0,0,0,0, 0, 
0,0,0, 128, 192, 192,0, 
96,240,248,124,60,60 

LB  1560  DATA  60,60,252,124,2 
48, 0,0,0,0,0,0,0,0,0 
,0,0,0,0,0,0,0,0,0,0 
,0,0 

FO1570  DATA  0,0,0,0,0,0,0,0 
,0,0 


IBM  PC/PCjr  version  of  "Tightrope." 

Program  3:  IBM  PC/PCjr 
Tightrope 

Version  by  Patrick  Parrish, 
Programming  Supervisor 

H6  10  SOTO  120 

BO  20  PUT  <X,Y)  ,W3,F>SET: RETURN 
fl«  30  PUT  (X,Y),W2,PSET; RETURN 
LC  40  PUT  (X,Y),W1,PSETj  RETURN 
CJ  50  PUT  (X,  Y),  LI,  PSETs  RETURN 
W  60  PUT  <X,Y),L2, PSETs RETURN 
EJ  70  PUT  (X,Y>,L3,  PSETs  RETURN 
Kft  80  PUT  (X,Y),RI,PSET! RETURN 
IB  90  PUT  <X,Y),R2,  PSETs  RETURN 
LB  100  PUT  (X,Y),R3,PSET:RETURN 
BO  110  PUT  (X,Y),W4,PSET!RETURN 
OE  120  KEY  OFF:  WIDTH  40SDEF  SEG= 
0!POKE  1047, PEEK  41047)  OR 
64 ■ SCREEN  1« COLOR  ,0!CLS 
: LOCATE  12, 15, 0: PRINT  "PL 
EASE  WAIT":GaSUB  1030: GOT 

0  240 

flf  130  JV-0:A«=INKEY«: IF  A«=CHR« 

C47)  THEN  JV-1:AV=0>RETUR 

N  ELSE  IF  A*=CHR«(90)  THE 

N  JVx2iAV-0 1  RETURN 
LH  140  AV=AV+l!lF  AV=B»2  THEN  AV 

"01  RETURN 
CH  150  eOTO  130 
to  160  R1=1NT(26»RND(1)>+1:X9=IN 

T  ( X  /B )  1  R2-R 1  +64  j  A-0 1  LOCAT 

E  3,X9sPRlNT  CHR«<R2) 
HH  170  A«=tNKEY«sA=A+l:IF  A=B  TH 

EN  Ml«2lBOSU6  1010:8aTO  2 

10 
HL  180  IF  A«=""  THEN  170 
FF  190  IF  A*=CHR«(R2)  THEN  Ml«l! 

BOSUB  1000: SOTO  210 
CD.  200  M1=2:G0SUB  990 
a   210  LOCATE  3, X9: PRINT  "  " ! RET 

URN 
FD  220  T3-3*INT(TIMER-T2)sT=1000 

~T3l IF  T<0  THEN  T-0 
Iffi  230  RETURN 
OH  240  RANDOMIZE  TIMER:  CLSs  LOCAT 

E  11, 15i PRINT  "1-  QAME")L 

DCATE  13. IS: PRINT  "2-  TVP 

INQ" 
EO  250  A»-INKEY«iIF  A«-""  THEN  2 

50 
IS  260  W="VAL(A«):IF  W<1  OR  W>2  T 

HEN  250 
KK  270  LOCATE  17, 5: PRINT  "ENTER 

LEVEL  OF  DIFFICULTY  <0-9) 

DB  280  A«-INKEY«JlF  A»"""  OR  <A» 
<"0"  OR  A*>"9">  THEN  280 
ELSE  B-VAL(A») 

HK  290  D="BsB-10-B:IF  W-1  THEN  B«- 
Bt2 

M  300    IF   «=2    THEN   B-Bt2i 

KK   310    CLS:FQR    X-0    TO    36   STEP    36 

1  FDR  J-0  TO  2iPUT  <XtB+J« 
8,40),S14iNEXT  J,XiLINE  ( 
24, 40) -(287, 40), 3 

LP   320   FOR    J-0    TO   3S   STEP   38:  FOR 
I-l    TO    ISlPUT     (J*8,I»a+4 
0),S15iPUT    <J«e+B+(J-3B)« 
16,I«8+40),S16iNEXT    t,J 
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FC  330  'LINE  <40,74>-<B»37-l,74) 
sLINE  (39, 73) -(8*37-1,75} 

Bf  340  FOR  R=l  TO  3:  FOR  C=6-R  TO 
36:  X=RND ( 1 ) : ROW'64+etR: C 
DL-C«8:IF  X<.3  THEN  PUT(C 
DL, ROW), SI 7! GOTO  3B0 

IP  3S0  IF  )(>=.3  AND  X<.6  THEN  PU 
T (COL, ROW) ,518: SOTO  3B0 

BP  360  IF  X>=.6  fiND  X<.9  THEN  PU 
T  <COL,  ROW)  ,S1<?:  GOTO  380 

K  370  LOCATE  RDW/B, COL/8: PRINT 


6J  3S0 
HK  390 


FN  400 


KB  410 


i:  420 


LN  430 

DJ  440 
CB  450 


H.  460 


NL  470 
FK  480 


IK  490 

BF  500 

8D  510 

LE  520 

IF  S30 


HK  540 


CP 

550 

EE 

560 

m 

570 

KJ 

580 

OP 

590 

KE 

600 

FN 

610 

it 

620 

SJ 

630 

BI 

640 

FF 

650 

BL 

660 

11 

670 

II  680 

EC  690 
K   700 

fa  710 

EI  720 
JO  730 
fE  740 

M  750 

IE  760 
BP  770 


NEXT  C,R 

LINE  (39,75)-<17,96) :LINe 

(3a,75)-(16,96) :FOR  1-96 

TO  96+7:  LINE  <16,  n-(BI3 
7-1, I): NEXT  I 
LINE  (23,20»8-l)-{36ta,20 
«B-l)lLINE  (7,22«8)-(38*B 
,22*B)iLINE  t23,20«8>-(7, 
22»8):UINE  (36»8,20»8-n- 
<3BtB,22*8) 
FOR  R=0  TO  liFOR  C-3-R  TO 

35+RiPUT  <C*8, (R+20) tB) , 
B15sNEXT  C,R 

LINE  (7,22t8)-<7,24«8):LI 
NE  (38«8, 22*8) "(38*8, 24*8 
>iLlNE  (23,22«8)-(23,23*B 
)|LINE  <36t8,22*8)-(36*e, 
23*8) 

Y=19:PX=7:PI=10!C=0 
T2~TIMER 

IF  W-2  AND  D=B  THEN  B=-60 
ELSE  IF  W-2  AND  D-9  THEN 
B-45 

ps0:GOSL)B  1020:  FOR  X°288 
TO  4  STEP  -3 
C"C+D+1:00SUB  220 
LOCATE  1,1  SPRINT  " SCORE "C 
"TAB<16)  "BONUS"T'*  "T 
AB(31)"LEVEL"D 
F-0: IF  X<268  AND  X >24  THE 
N  BOSUB  620 
IF  F»=l  THEN  840 
P=P+t:lF  P-5  THEN  P-1 
ON  P  GOSUB  20,30,40,30 
JV=0:A«=INKEY«:  IF  A*="  ■' 
THEN  GOSUB  960  ELSE  IF  A* 
=CHR«<47)  THEN  JV=ll80SUB 

640 
IF  A«=CHR«(90)  THEN  JV=2: 
BOSUB  730 
IF  F=l  THEN  840 
NEXT  X:X=Xi-3:  GOSUB  1020:8 
OSUB  110 
C=C+T:T=0 

IF  D<9  THEN  B=B-2:D=D+1 
IF  W=2  AND  D<9  THEN  B-B-2 

a 

IF  D*9  THEN  PX-6: PZ=9 

GOTO  440 

R="INT(9tRND(l))+l;IF  R>2 

THEN  RETURN 

IF  R-1  THEN  730 

P=4!PUT  (X,Y),L1,PSET 

IF  W=l  THEN  GOSUB  130  ELS 

E  IF  U=>2  THEN  GOSUB  160 

IF  Ml=l  THEN  JV=2  ELSE  IF 

Ml -2  THEN  JV-1 
IF  JV=2  THEN  P=P-lsON  P  8 
OSUB  ,,40, 50, 60, 70s  IF  P<4 

THEN  RETURN  ELSE  650 
P»=P+1:0N  P  GOSUB  ,,,50,60 
,70 

GOSUB  220 

LOCATE  1,21: PRINT  T 
IF  P>3  AND  P<PX  THEN  650 
F= 1 s  RETURN 

P=7:PUT  <X,Y) ,R1,PSET 
IF  W~I  THEN  BOSUB  130  ELS 
E  IF  W-2  THEN  OGSUB  160 
IF  t11-l  THEN  JV-1  ELSE  IF 

Ml -2  THEN  JV-2 
IF  JV=1  THEN  P.p-1 
eOSUB  220 


IK  7B0  LOCATE  1,21:  PR  INT  T 

NJ  790  IF  P<7  THEN  P=3:  RETURN 

DJ  800  IF  JV=1  THEN  ON  P  GOSUB  , 

,,,,,80, 90, 1001  GOTO  740 
BH  B10  P=P+1:0N  P  GOSUB  ,,,,,, 80 

,90,100 
IE  820  IF  P>6  AND  P<PZ  THEN  740 
EL  830  F=l!  RETURN 
UN  840  P=10:PUT  t  X,  Y>  ,  W4,  PSET:  RE 

M  FALLING  MAN 
KF  850  Z2=23:FOR  Z=Z2  TO  150  STE 

P  6: IF  Z>Z2  THEN  PUT  (X,Z 

-6) ,S12 
IW  860  PUT  <X,Z),S12:SOUND  <Z+15 

}C2,.08 
PC  870  NEXT  ZsPUT  <X,  Z-6)  , S12:  Y= 

Y+50 
NA  880  FOR  Z=150  TO  Y  STEP  -6:  IF 
Z<150  THEN  PUT  <X,Z+6),8 

13 
BC  890  PUT  (X,Z),S13:SDUND  (Z  +  15 

)«2,liNEXT  Z:PUT  <X,Z+6), 

S13 
Eft  900  FOR  Z=Y  TO  150  STEP  6: IF 

Z>Y  THEN  PUT  <X, Z-6), 813 
LD  910  PUT  (X,Z),S13:SOUND  (Z+13 

>*2,l:hEXT  ZiPUT  (X,Z-6), 

S13:Y»Y+30irF  Y<150  THEN 

880 
DH  920  PUT  (X,Z-6),S135L0CATE  3, 

6i PRINT  "PRESS  <RETURN>  T 

0  PLAY  AGAIN" I  LOCATE  4,7i 
PRINT  "PRESS  < SPACE  BAR> 
FOR  r^NU" 

«P  930  A«=INKEY*:IF  A«<>"  "  AND 
A»<>CHR»<13)  THEN  930 

IC  940  C=0:Ml=0!AV«0s  IF  A*-CHR«  ( 
13)  THEN  310 

EE  950  GOTO  240 

ftB  960  T4=INT  (TIMER) 

Ffl  970  A«=Ilsfl<EY«:  IF  A*-""  THEN  9 
70 

BB  980  T5-1NT  (TIMER)  !T2=T2+TS-T4 

1  RETURN 

HK  990  SOUND  37,1 1  RETURN 

LS  1000  SOUND  440,1: RETURN 

OL  1010  SOUND  2300,1:  RETURN 

BL  1020  FOR  DE=1  TO  400! NEXT:  RET 
URN 

EN  1030  REM  dafina  sh*p» 

FE  1040  DEFINT  E,L,R,S,W 

1050  RESTORE  1240: READ  X,Y:E- 
(4+INT((X+7)/8)*Y)/2!DIM 
Wl (E):W1 (0)-XiWl (1)-Y:F 
OR  1-2  TO  EiREAD  A«iWl(I 
)-VAL("S(H"+A«)  :NEXT 
1060  READ  X,YsE=(4+INT( (X+7)/ 
B)«Y)/2iDIM  W2(e)iW2<0)- 
XsW2<l)-YiF0R  I«2  TO  EiR 
EAD  A«:W2(I)-VAL("(<H"+A« 
>iNEXT 

££  1070  READ  X,VsE=(4+INT( (X+7)/ 
e)tY)/2lDIM  M3(E)lW3(0)- 
XiW3(l)-YlF0R  1-2  TO  EiR 
EAD  A*  I W3  ( I  >  - VAL  ( ■'  tcH  "  +  A« 
) ■ NEXT 

NP  1000  E«(4+INT((42+7)/8)«21)/2 
■DIM  W4(E)iW4(0)-42lW4<l 
) -21 IFOR  1-2  TO  EtM4(I)- 
01  NEXT 

PB  1090  READ  X,Y5E=<4+INT( (X+7)/ 
a)*Y)/2iDIM  Rl(E)iRH0)- 
XiRl <l)-YlFOR  1-2  TO  EiR 
EAD  A*|R1<I)-VAL('*M4"+A» 
) I  NEXT 

ND  1100  READ  X,Y:E=<4+INT((X+7)/ 
B)*Y)/2:DIM  R2(E):R2(0)« 
X!R2<l)=-YiF0R  1-2  TO  E:R 
EAD  A«:R2(I)-VAL("t<H"+A« 
) I  NEXT 

LB  1110  READ  X,YsE=-(4+INT((X+7)/ 
B}»Y>/2iDIM  R3(E>lR3<0)= 
X:R3(1)"Y>FDR  1=2  TO  EiR 
EAD  A«sR3(I)-VAL("l<H"+A« 
) I  NEXT 


HO 


FE 


46     COMPUTtI     August  1986 


KE  1120  READ  X,  Y:  E=  <4+INT  (  (X+7)  / 
8>«Y)/2:DIM  L1(E):L1<0)= 
XjL1(1)=Y:F0R  1-2  TO  EiR 
EAD  A«!L1(I)»VAL<"&H"+A« 
) SNEXT 

6C  1130  READ  X,Y:E=(4+INTC <X+7)/ 
8)«Y)/2jDIM  L2(E):L2(0)= 
XiL2(l)=Y:F0R  1=2  TO  E:R 
EAD  A«iL2(I)=VAL("t.H"+A» 
):NEXT 

FA  1140  READ  X,  Ys  E=  (4+INT  (  (X+7)  / 
B)«Y)/2sDIM  L3(E)nL3<0)- 
X!L3(1)-Y!F0R  1=2  TO  E:R 
EAD  A« : L3 ( I ) -VAL  < "&H " +A« 
) I  NEXT 

DC    1150    READ    X,Y:E=  (4+INT  ((X+7)/ 
8)*Y)/2:DIM   S12<E):S12(0 
)-X!S12(l)=Y:FQR    1-2    TO 
E:READ    A«: S12 ( I )=VAL ( "&H 
"+A*) (NEXT 

K   1160   READ    X,Y:E=(4+INT( (X+7)/ 
8)»Y)/28DIM    S13(E):S13(0 
)-X:S13<l)-Y:F0R    1=2    TO 
ElREAD   A«iS13(I>=VAL("»<H 
"+A«)iNEXT 

CC   1170    READ    X,  Y:E=<4+INT(  (X+7)/ 
B)«Y)/2!DIM   S14(E):S14(0 
)-X:S14«l)=Y;F0R    1=2   TO 
EiREAD    A«:S14(I)-VAL("J<H 
"+A«)sNEXT 

CK    11B0   READ    X,Y:E-(4+INT( (X+7)/ 
8}«Y)/2iDIM   S15(E):S1S(0 
)-XlS15(l)=YiF0R    1=2   TO 
E:READ   A«:S15(I)='VAL(  "tiH 
"+A») I  NEXT 

BC   1190   READ    X,Y:E=(4+INT< (X+7)/ 
B)tY)/2!DIM    S16(E):S16(0 
)-X:S16(l)=Y:F0R    1=2   TO 
E:READ   A«:  S16  (  I ) -VAL  (  "IcH 
"+A«)!NEXT 

PD   1200    READ    X, Y:E=(4+INT( (X+7)/ 
B)«Y)/2!DIM    S17(E)SS17(0 
)-X:S17(l)=YiF0R    1-2    TO 
EsREAD   A«sS17(I>"VftL("«<H 
"+A«) :NEXT 

OE    1210    READ    X,  Y:E=(4+INT(  (X+7)/ 
B)*Y}/2>DIM   S1B(E):S18(0 
)-X!Sia{l)-YiFOR    1-2   TO 
E:READ    A*iSie(  I)-VALC'tiH 
■'+ft»)iNEXT 

01    1220    READ    X,  Y:E=(4+INT(  (X+7)/ 
8)»Y)/2iDIM   S19(E)!S19(0 
)-X:S19<l)-YiFDR    1-2    TO 
EiREAD   A*i519(I)-VAL  ("tiH 
"+A«): NEXT: RETURN 

EE    1230    REM    Wl 

PB  1240  DATA  48,  21 ,  0,  A,  0,  0,  8022, 
0 

HK  1250  DATA  0,  S0AA,  0,20,  2A,  8000 
,A0,A 

in  1260  DATA  8002,B,802A,8,AA02, 
AAAA,A0,0 

LB  1270  DATA  80AA,0,  0,  B0AA,  0,  0,  8 
0AA,0 

NE  1280  DATA  0,  B0AA,  0,  0,  S0AA,  0,  0 
,80AA 

«  1290  DATA  0,0,B0AZ,0,0,B0A2,0 

-a 

KB  1300  DATA  80A2,  0,  0,  a02A,  0,  0,  8 

00 A,  0 
FJ  1310  DATA  0,A002,  0,0,  8002,  0,0 

,802A 
KF  1320  DATA  0,0 
HD  1330  REM  W2 
PB  1340  DATA  48, 21 , 0,  A,0, 0, 8022, 

0 
Hn  13S0  DATA  0,B0AA,0,20,2A,8000 

,A0,A 
Bil  1360  DATA  B002 ,  8 ,  B02A  ,  B ,  AA02 , 

AAAA,A0,0 
LI  1370  DATA  B0AA,0,  0,  80AA,  0,  0,  8 

0AA,0 
US  1380  DATA  0,80AA,0,0,80AA,0,0 

,80AA 
KK  1390  DATA  0,0, 80A2, 0,200,8082 


,0,A00 
LE  1400  DATA  8002,  0,  A00,  8002,  0,  A 

00,B002,0 
CL  1410  DATA  200,  A0S0,  0,200,  2880 

,0,A00,A000 
KH  1420  DATA  0,0 
lA  1430  REM  M3 
PF  1440  DATA  48,  21 ,0,  A,  0,0, 8022, 

0 
HO  14S0  DATA  0,80AA,0,  20,  2A,  B000 

,A0,A 
BA  14&0  DATA  8002 ,  8 ,  802A  ,  8  ,  AA02 , 

AAAA,A0,0 
LF  1470  DATA  S0AA,  0,0,  80AA,  0,  0,  B 

0AA,0 
01  1480  DATA  0,e0AA,0,0,e0AA,0,0 

,B0AA 
FK  1490  DATA  0,0,a0A2,0,200, A0B0 

,0,A00 
JC  1500  DATA  2S00,  0,  2800,  A00,  0,2 

B00, 200,80 
IL  1S10  DATA  2800, 0,A0,  2800,  0,A0 

,Ae02,200 
KH  1520  DATA  80,0 
ID  1SS0  REM  LI 
DD  1540  DATA  48,21 ,  0,  A,  0,  0,  8022, 

2 
EJ  1550  DATA  0,  e0AA,  8002,  0,  2A,  2A 

,0,20A 
PD  1560  DATA  A0,  0,  AA2A,  0,  200,  A0A 

A,0,2A00 
BC  1570  DATA  S0AA,  0,  A002,  e0AA,  0, 

AA,80AA,0 
DC  1580  DATA  20,80AA,0,0,a0AA,0, 

0,B0AA 
U  1590  DATA  0,0,80A2, 0,200, 8082 

,0,A00 
FA  1600  DATA  8002,  0,  A00,  A000,  0,  A 

00,2800,0 
AH  1610  DATA  200,  2880,  0,  200,  A0a0 

,0,A00,0 
LL  1620  DATA  0,0 
Bl  1630  REM  L2 
PL  1640  DATA  4S,  21 ,  0,  A,  800A,  0,  80 

22, 2B 
OK  16S0  DATA  0,80AA,A0, 0,22A,80, 

0,A0A 
EG  1660  DATA  0,0,  Ae2A,  0,200,  A0AA 

,0, A00 
NJ  1670  DATA  80A A,  0,2800,  80AA,  0, 

A000,80AA,0 
LL  1680  DATA  8002,  e0AA,  0,  A,  a0AA, 

0,AB,80AA 
KA  1690  DATA  0,  0,e0A2,  0,  200,  8082 

,0,A00 
6K  1700  DATA  8002,  0,  A00,  A000,  0,  A 

00,2A00,A0 
FL  1710  DATA  200,80,  A0,  200,  80,  20 

,A00,0 
LH  1720  DATA  0,0 
CI  1730  REM  L3 
EF  1740  DATA  42,  21 ,  8002,  28,  0,  A0A 

,A,0 
60  17S0  DATA  2228,  B082,20,  AAA0,a 

082, 20, 2 A A0, 8002 
BB  1760  DATA  A0,  A2B,  20A,  A0,  AA0A, 

AAe,0,AA02 
M  1770  DATA  28A0,0,AA00,A0e0,0, 

AA00, 8082,0 
n.  1780  DATA  AA00,8A,0,AA00,Aa,0 

,AA00,A0 
HA  1790  DATA  0,  A000,  0,  0,  A000,0,  0 

,A000 
BE  1800  DATA  0,0,  A000,0,0,  A000,0 

.0 

PA  1810  DATA  A000,0,0,A000,0,0,A 

00A,0 
LP  1820  DATA  0,0 
EA  1830  REM  Rl 
eP  1840  DATA  48,  21,0,  A,  0,20,  8022 

,» 
IC  1650  DATA  Ae,80AA,0,800A,2A,0 

,Ae00,A 
BO  1B60  DATA  0,  A00,80AA,0,0,  A0AA 

,0,0 


CF  1870  DATA  AAAA,0,0,82AA,  A0,0, 

B0AA,802A 
AE  1880  DATA  0,  B0AA,2,  0,  80AA,  0,  0 

,^AA 
KE  1890  DATA  0,  0,  80A2,  0,  200,8082 

,0,A00 
AA  1900  DATA  8002,  0,  A00,  8002,  0.  A 

00,8002,0 
JD  1910  DATA  A00,A000,0,AA00,200 

0,0,0,A000 
LB  1920  DATA  0,0 
FK  193a  REM  R2 
CI  1940  DATA  44,  21,  AS,  28,0,  A,  8A, 

0 
SA  1950  DATA  8202, AA,0, A000,Aa,0 

,2800,28 
Nl  1960  DATA  0,  A00,  AA,  0,  200,  80AA 

,0,200 
ND  1970  DATA  A0AA,  0,  200,  2BAA,0,  2 

00, AAA, 0 
KH  1980  DATA  200,  2AA,  80,  200,  AA,  A 

B,200,AA 
(L  1990  DATA  20,  200,  BA,  0,  A00,  A,  0 

,2800 
AA  2000  DATA  A,  0,2800,  A,  0, 2800, A 

.0 
K   2010  DATA  A802, 8002,0,0,0900, 

0,0,8002 
KA  2020  DATA  0,0 
EH  2030  REM  R3 
CC  2040  DATA  42,  21 ,  0,  AA0,  0,  200,  B 

282,80 
LL  2050  DATA  A80,  A008,  A0,  2860,  A0 

2A,A0,28A0,800A 
HC  2060  DATA  A0,  AA8,  8202,  80,  20A, 

AAAA, 0,8002 
JF  2070  DATA  ABAA,  0,  A000,  A02A,  0, 

2800,A02A,0 
SB  2080  DATA  A00,  A02A,0,  200,  A0AA 

,0,0, A0AA 
CA  2090  DATA  0,  0,  A000,  0,  0,  A000,  0 

,15 
U  2100  DATA  A000,0,0, A000,0,0,A 

000,0 
m   2110  DATA  0,A000,0,0,A000,0,0 

,AA00 
K   2120  DATA  0,0 
HB  2130  REM  fig  12 
HP  2140  DATA  32,21,AA0,AA0,8A0,A 

20,A26,2BA0 
BD  2150  DATA  80A,  A020,  8202,  8082, 

AA00,A8,2A00,  AS 
10  2160  DATA  2A00,A8,2A00,AS,2A0 

0,Ae,2A00,A8 
FB  2170  DATA  2A00,  A8,2A00,  A8,2B0 

0,2S,A000,A 
FE  2180  DATA  8002,8002,8002,8002 

, B002, 8002, B002, 8002 
ND  2190  DATA  8002,8002,  802A,A802 

,B 

IL  2200  REM  fig  13 

HS  2210  DATA  32,  IB,  0,2A,  0,  S02A,  0 

,802A 
HN  2220  DATA  0,  B00A,  0,  0,  0,  A002,  8 

002 , A80A 
CB  2230  DATA  A002,  AA2A,2800,  AAA0 

, 200 , AA80 , 20 , AA00 
Cr  2240  DATA  2A2a ,  AA00 ,  AA08 ,  A AB0 

, B2SA , AAAA , 82 , AA2 A 
1^  2250  DATA  A0,  AA00,  AAAA,  AAAA,A 

A2A,A8AA,0 
IH  2260  REM  block 
PK  2270  IMTA  16,8,5050,5050,505, 

505,5050,5050 
BO  2280  DATA  505,505,0 
BB  2290  REM  cross 
K   2300  DATA  16,8,550,1414,5005, 

5005,5005,5005 
m   2310  DATA  1414,550,0 
EA  2320  REM  l«dd«r 
W  2330  DATA  16,8,280,260,280,28 

0, AAAA, 280 
M  2340  DATA  280,280,0 
DF  2350  REM  purple  head 
OL  2360  DATA  16,8, A002,AB0A, AB0A 


,A002,A62A,AAAA 
JS  2370  DATA  AAAA,  AAAA,  0 
NO  2380  REM  Hhlte  head 
KJ  2390  DATA  16,e,F003,FC0F,FC0F 

,Fe«3,FC3F,FFFF 
IB  2400  DATA  FFFF,FFFF,B 
KK  2410  REM  blue  head 
M  2420  DATA  16,8,5001,5405,5405 

,5001,5415,5555 
Ott  2430  DATA  5595,5555,0 

Program  4:  Amiga  Tightrope 

Version  by  Patrick  Parrish, 
Programming  Supervisor 

Pleose  refer  to  the  typing  Instructions  In  this 
article  before  entering  this  listing. 

0  GOSUB  setupiGOTO  70-« 

1  PUT  (X,Y)  ,w3,PSET:  RETURN-* 

2  PUT  (X,Y)  ,w2,PSET!RETURN-* 

3  PUT  (X,Y) ,wl,PSET: RETURN* 

4  PUT  (X,y),ll,PSET:RETURN* 

5  PUT  (X,y)  ,12,PSET:RETURN-* 

6  PUT  (X,Y),13,PSET:RETURN-* 

7  PUT  (X,Y> ,rl,PSET:RETURN* 
3  PUT  (X,Y) ,r2,PSETt RETURN* 

9  PUT  ( X, Y ),r 3, PSET: RETURN* 

10  PUT  (X,Y),w4,PSETsRETURN* 

20  JV=0:a$=UCASE$(INKEY$)* 
IF  a$=CHR9(47)  THEN  * 
JV=1 5 AV=0 ! RETURN* 

END  IF* 

IF  a5=CHR?(90)  THEN* 
JV=2:AV=0: RETURN  * 
END  IF* 

21  AV=AV+1* 

XF  AV=b*4  THEN  AV=a: RETURN* 

22  GOTO  20* 

23  rl=INT{26*RNDCl))+l* 
X9=INT(X/8) :r2=rl+64* 

a=0: LOCATE  3, X9: PRINT  CHR$(r2)* 

24  a5=UCASE?(INKEY5) :a=a-H* 
IF  a=b  THEN* 

Ml=2* 

GOSUB  1770:GOTO  30* 

END  IF* 

25  IF  a$=""  THEN  24* 

26  IF  a5=CHR?(r2)  THEN* 
Ml  =  l* 

GOSUB  1740: GOTO  30* 
END  IF* 

27  Hl=2iG0SUB  1770* 

30  LOCATE  3, X9: PRINT  "  "* 
RETURN* 

31  ■T3  =  3*INT(TIHER-T2)* 
T=1000-T3:IF  T<0  THEN  T=0* 

32  RETURN* 

70  CLS:FOR  X=a  TO  36  STEP  36* 

FOR  J=0  TO  2* 

PUT  (X*8+J*8,40) ,al4:NEXT  J,X* 

LINE  (24,40)-(287,40),3* 

75  FOR  J=0  TO  38  STEP  33* 

FOR  1=1  TO  15* 

PUT  (J*8, 1*8+40), 3l5* 

PUT  (J*8+8+(J=38)*16, 1*8+40), sl6 

■* 

NEXT  I, J* 

80  FOR  r=l  TO  3:F0R  c=6-r  TO  36* 

X=RMD(1) :ROW=64+8*r:COL=c*8* 

IF  X< . 3  THEN* 

PUT(COL,ROW) ,sl7iGOTO  130* 

END  IF* 

85  IF  X>=.3  AND  X<.6  THEN* 

PUT ( COL, ROW ),s 18 t GOTO  100* 

END  IF* 

90  IF  X>=.6  ASD  X<.9  THEN* 

PUT(COL,R0W) ,sl9:G0T0  100* 

END  IF* 

95  LOCATE  ROW/3,COL/8 SPRINT  "  "* 

100  NEXT  C,r* 

105  LINE  (39,75)-(17,96)* 

LINE  (38,75)-(16,96)* 

FOR  1=96  TO  96+7* 

LINE  {16,I)-(8*37-l,l)sSEXT  I* 
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107  LIKE  (23,20*a-l)-(36*8,20*8- 

LINE  (7,22*8)-(38*8,22*8)-* 

LINE  (23,20*8)-C7,22*8)-* 

LINE  (36*8, 20*8-l)-C38*8, 22*8)* 

108  FOR  r=0  TO  l-« 
FOR  cs3-r  TO  35+r* 

PUT  (c*8,  Cr+20)*8)  .SIS'* 
NEXT  c,r* 

109  LINE  (7,22*8)-[7,24*8)* 
LINE  (36*8, 22*8)-(38*8, 24*8)* 
LINE  (23,22*8)-(23,23*8)* 
LINE  (36*8, 22*8)-(36*8, 23*8)-* 
160  Y=19:PX=7:PZ=10:c=0-* 

440  T2'>TIMER* 

500  IF  w='2  AND  d=8  THEN* 

b=100-* 

E«D  IF* 

IF  w=2  AND  d=9  THEN  ■♦ 

b=65* 

END  IF* 

4 

510  P=0:GOSUB  3000* 

FOR  X"=288  TO  4  STEP  -3* 

520  c=c+d+l:GOSUB  31* 

550  LOCATE  1,1* 

PRINT  "SCORE"c"     "TAB(16)"BONU 

S"T"  ";* 

PRINT  TAB(31)"LEVEL"d+ 

600  f=0:IF  X<263  AND  X>24  THEN  G 

OSUB  780* 

605  IF  f=l  THEN  1080* 

63?  P=P+l!lF  P=5  THEN  P=l* 

640  ON  P  GOSUB  1,2,3,2* 

655  JV=0:a5=UCASES(INKEY5) sIF  a? 

="  "  THEN  GOSUB  1510  * 

IF  a5=CHRS(47)  THEN  JV=1:GQSUB  8 

10* 

660  IF  a5=CHR$(90)  THEN  JV=2:GOS 

UB  950* 

665  IF  £=1  THEN  1080* 

670  NEXT  X:X=X+3* 

GOSUB  3000:GOSUB  10* 

710  c=c+T:T=0* 

720  IF  d<9  THEN  b=b-2:d=d+l* 

750  IF  w=2  AND  d<9  THEN  b=b-25* 

760  IF  d=9  THEN  PX=6:PZ=9* 

770  GOTO  440* 

780  r=INT(9*RND(l))+l* 

IF  r>2  THEN  RETURH* 

800  IF  r=l  THEN  950* 

810  P=4:PUT  (X,Y) ,11,PSET* 

820  IF  w=l  THEN  GOSUB  20* 

IP  w=2  THEN  GOSUB  23* 

840  IF  Ml=l  THEN  JV=2* 

IF  Ml»2  THEN  JV=1* 

860  IF  JV=2  THEN* 

P=P-1* 

ON  P  GOSUB  , ,3,4,5,6* 

IF  P<4  THEN  RETURN  ELSE  820* 

END  IF* 

880  P=P+l!ON  P  GOSUB  ,,,4,5,6* 

890  GOSUB  31* 

910  LOCATE  1,21: PRINT  T* 

920  IF  P>3  AND  P<PX  THEN  820* 

930  f=l I  RETURN* 

950  P=7!PUT  (X,Y) ,rl,PSET* 

960  IF  w=l  THEN  GOSUB  20* 

IF  W=2  THEN  GOSUB  2  3* 

980  IF  Ml=l  THEN  JV=1* 

IF  Ml=2  THEN  JV=2* 

990  IF  JV=1  THEN  P=P-1* 

1010  GOSUB  31* 

1030  LOCATE  1,21  SPRINT  T* 

1040  IF  P<7  THEN  P=3 ! RETURN* 

1050  IF  JV=1  THEN* 

ON  P  GOSUa  ,,,,, ,7,8,9* 

GOTO  960* 

END  IF* 

1060  P=P+1* 

ON  P  GOSUB  ,,,,, ,7,8,9* 

1070  IF  P>6  AND  P<PZ  THEN  960* 

1075  f=l: RETURN* 

1080  P=10* 

PUT  (X,Y),w4,PSET* 
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•FALLING  MAN* 
1090  Z2=23* 

FOR  Z=Z2  TO  150  STEP  6* 
IF  Z>Z2  THEN  PUT  (X,Z-6),Sl2* 
1100  PUT  (X,Z) ,sl2* 
SOUND  (Z+15)*2, .08* 
1110  NEXT  Z* 
PUT  (X,Z-6) ,al2:Y=Y+S0* 
1120  FOR  Z=150  TO  Y  STEP  -6* 
IF  Z<150  THEN  PUT  (X,Z+6),al3* 
1125  PUT  (X,2),3l3* 
SOUND  {Z+15)*2,1jNEXT  Z* 
PUT  (X,Z+6},Bl3* 
1130  FOR  Z=Y  TO  150  STEP  6* 
IF  Z>Y  THEN  PUT  (X,Z-6),al3* 
1135  PUT  (X,Z) ,3l3* 
SOUND  (Z+15)*2,1:NEXT  Z* 
PUT  {X,Z-6),3l3sY=Y+30* 
IF  Y<150  THEN  1120* 
1160  PUT  (X,2-6) ,sl3:L0CATE  3,6* 
PRINT  "Press  <RETURll>  to  play  ag 
ain"* 

LOCATE  4,7* 

PRINT  "Press  < SPACE  BAR>  for  men 
u"* 

1170  a?=INKEY?* 

IF  a?<>"  "  AND  a$<>CHR5(13)  THEN 
1170* 

1180  c=0:Ml=0:AV=0* 
IF  aS=CHRS(13)  THEN  70* 
GOSUB  again :GOTO  70* 
1510  T4=INT(TIMER)* 
1520  a5=INKEY$* 
IF  aS=""  THEN  1520* 
1530  T5=INT(TIMER) !T2=T2+T5-T4* 
RETURN* 

1740  SOUND  440,1: RETURN* 
1770  SOUND  2300,1: RETURN* 
3000  FOR  DE=1  TO  400 : NEXT:  RETURN 
* 

setups* 

DEFINT  L,r,8,W* 
SCREEN  1,320,200,2,1* 
'  OPEN  WINDOW  3  WITH  NO  GADGETS 
OR* 

'  title  BAR* 

WINDOW  1,  '■",  (0,0)- (311,  25)  ,16,1* 
WINDOW  3,"", (0,0)-(311,185>,16,l 
* 
4 

WINDOW  OUTPUT  3* 
PALETTE  0,0,0,0* 
PALETTE  1 , . 5 , 1 , 1* 
PALETTE  2,1,0,0* 
PALETTE  3 , 1 , 1 , . 1* 
WIDTH  40* 
CLS* 

DIM  voice%(8),w4%(200)* 
GET  (0,0)- (25, 20) ,w4%* 
RESTORE  VOICEDATA  * 
FOR  J=0  TO  8* 
READ  voice% (J)* 
NEXT* 

'  Speech  will  be  synchronous* 
VOICEDATA 3* 

DATA  110,0,170,0,22200,64,10,1,0 
* 

4 

talk5="Welcome  to  Tightrope"  * 

LOCATE  12,11* 

PRINT  talk?* 

GOSUB  talk* 

L=  87  :DIM  wl%(L)* 

FOR  1=0  TO  LsREAD  a? !Wl% ( I )=VAL( 

"£ih"+a?)  :NEXT* 

shapedata:* 

DATA  18,15,2,30,0,58,0,FB* 

DATA  0,4070,800,0030,1800,2078,2 

000, IFFF* 

DATA  C000,F8,0,Fa,0,F8,0,F8* 

DATA  0,F8,0,F8,0,D8,0,D8* 

DATA  0,08, 0,73,0, 38,0, 1C4 

DATA  0,18,0,78,0,30,0,78* 

DATA  0,F8,0, 4070,800,0030, 1800,2 

078* 


DATA  2000, IFFF, C000,FB,0,F8,0,F8 

4 

DATA  0,F8,0,F8,0,F8,0,D8* 

DATA  0,D8, 0,08,0,78, 0,38* 

DATA  0,1C, 0,18, 0,78, 0,0* 

L=  87  sDIH  w2%(L)* 

FOR  1=0  TO  LsREAD  a? 5 w2% ( I ) =VAL( 

"&h"+aS) sNEXT* 

DATA  18,15,2,30,0,58,0,FB* 

DATA  0,4070,800,0030,1800,2078,2 

000, IFFF* 

DATA  C000,PS,0,F8,0,F8,0,F8* 

DATA  0,F8,0,F8,0,D8, 0,198* 

DATA  0,313, 0,318,0, 318, 0,18C* 

DATA  0,186,0,300,0,30,0,73* 

DATA  0,F8, 0,4070, 800,0030,1800, 2 

078* 

DATA  2000, IFFF, C000,F8,0,F8,0,F8 

4 

DATA  0,F8,0,F8,0,F3,0,D8* 

DATA  0,193,0,318,0,318,0,3184 

DATA  0,18C, 0,186, 0,300,0,0* 

L=  87  :DIM  w3%CL)* 

FOR  1=0  TO  LsREAD  a$ sw3% ( I ) =VAL( 

"£,h"+a|)  sNEXT* 

DATA  18, 15, 2, 30,0, 58,0, FS* 

DATA  0,4070,800,0030,1800,2078,2 

000, IFFF* 

DATA  C000,F8,0,F8,0,F8,0,F8* 

DATA  0,F8,0,F8,0,De,0, 18C* 

DATA  0,306,0,603,0,601,8000,600* 

DATA  C000,600,C000,1E01,8000,30, 

0,78* 

DATA  0,F8, 0,4070, 800, 0030,1800, 2 

0784 

DATA  2000, IFFF, C000,F8,0,F8,0,F8 

4 

DATA  0,F8,0,F8,0,F3,0,D8* 

DATA  0,18C, 0,306, 0,603, 0,601* 

DATA  8000, 600,0000, 600, C000,1E01 

,8000,0* 

L=  87  sDIM  rl%(L)4 

FOR  1=0  TO  LsREAD  a$ s rll ( I ) =VAL( 

"S,h"+a$)  :NEXT4 

DATA  18, 15, 2, 30, 0,53, 1000, FS4 

DATA  ia00,70,7000,31,C000,7F,0,l 

FC4 

DATA  0,7F8,0,lCF8,0,F0Fa,0,40Fe4 

DATA  0,F8,0,F8, 0,08,0,1984 

DATA  0,318,0,300,0,306,0,1864 

DATA  0, 18C, 0,300, 0,30, 0,784 

DATA  1000, F8, 1800, 70, 7000, 31, C00 

0,7F4 

DATA  0,lFC,0,7Fa,0,lCF8,0,F0Fe* 

DATA  0,40F8,0,Fa,0,F8,0,D84 

DATA  0,198,0,318,0,300,0,3064 

DATA  0,186,0,180,0,300,0,04 

L=  87  :DIM  r2%(L)4 

FOR  1=0  TO  LsREAD  a$ : r2% ( I ) =VAL( 

"S,h"+aS)  SNEXT4 

DATA  18, 15, 2, 30, 3800, 58, 6000, F84 

DATA  C000,71,8000,33,0,7E,0,1FC4 

DATA  0,3Fa,0,6F8,0,CF8,0,18Fa* 

DATA  0, 30F8,0,E0F8,0, D8, 0,193* 

DATA  0,318,0,300,0,307,0000,180* 

DATA  0000,180,4000,300,0,30,3800 

,784 

DATA  6000, FS, 0000,71,8000, 33, 0,7 

E* 

DATA  0,lFC,0,3F8,0,6Fa,0,CF8* 

DATA  0, 13F8,0, 30F8,0,E0F3,0,De* 

DATA  0,193,0,318,0,300,0,307* 

DATA  C000,180,C000, 180,4000, 300, 

0,0* 

L=  87  :DIM  r3%(L)* 

FOR  1=0  TO  L:READ  a$ : r3% ( I ) =VAL( 

"&h"+a?) :NEXT* 

DATA  15,15,2,1860,798,3330,330,6 

598* 

DATA  47C2,CF98,478C,C718,C7B0,63 

31,C7C0,3FE34 

DATA  400,lFC6,4g0,F8C,400,F98,79 
8,FB0* 

DATA  330,FE0,7C2,FC0,73C,C00,7B0 
,000* 


DATA  7C0,C00,400,C00,400,C00,400 

,C004 

DATA  400,000,400, 3000,0,1860,0, 3 

330-t 

DATA  0,6798, 4002, CF98, 4000,0718, 

0000,6331* 

DATA  C000,3FE3,0,lFC6,0,FeC,0,F9 

8-* 

DATA  0,FB0,0,FE0,0,FC0,0,C00-t 

DATA  0,C00,0,C00, 0,000,0,000* 

DATA  0,000,0,000,0,3000,0,0* 

L=  87  :DIM  11%(L)* 

FOR  1=0  TO  LsREAD  a?:ll%(l)=VAl( 

"&h"+a?) :NEXT* 

DATA  18,15,2,0,93,30,30,4058* 

DATA  C2,E0F8,8C,3870,B0,E30,C0,3 

F8* 

DATA  0,FC,0,FF,0,F9,C09a,Pa* 

DATA  7830, F8, 1002, F8,8C,D8,B0, 19 

8* 

DATA  00,318,0.318,0,318,0,300* 

DATA  0,F04, 0,0,0,0, 0,30* 

DATA  0 , 4078 , 0 , E0F8 ,0,3870 , 0, E30* 

DATA  0,3F8,0,FC,0,FE',0,F9* 

DATA  0000, F8, 7800, FS, 1000, F8,0,D 

8* 

DATA  0,198,0,318,0,318,0,318* 

DATA  0, 300,0, F04, 0,0,0,0* 

L=  87  iDIM  12% (L)* 

FOR  1=0  TO  L:READ  a? : 12% (l ) =VAL { 

"S!h"+a5)  rtlEXT* 

DATA  16,15,2,0,98,E060,30,30B0* 

DATA  02, 19F0,8C,CE0,B0,650,C0,3F 

0* 

DATA  0,1F8,0,1FC,0, lF6,9a,lF3* 

DATA  30,lFl,80C2,lF0,E0eC,lB0,40 

B0,330* 

DATA  00,630,0,630,0,630,0,618* 

DATA  0,1E08,0, 18,0, 0,0, E060* 

DATA  0,30F0,0,19F0,0,CE0, 0,660* 

DATA  0,3F0,0,1F8,0,1FC,0,1F6* 

DATA  0,1F3,0,1F1,8000,1F0,E000,1 

B0* 

DATA  4000,330,0,630,0,630,0,630* 

DATA  0, 618, 0,1E08, 0,18, 0,0* 

L=  87  :DIM  13%{L)* 

FOR  1=0  TO  LsREAD  a?il3%(I)=VAL( 

"&h"+a5) :NEXT* 

DATA  14,15,2,03,98,199,8030,3320 

* 

DATA  0002, 8670, 0080, 0638, C0B0,E3 

19,a0C0,31FF* 

DATA  0,18FE,0,C7C, 0,670,98,370* 

DATA  30, 1FC,C2,FC, 80,0, 80,0* 

DATA  00,0,0,0,0,0,0,0* 

DATA  0,O,0,F, 0,03, 0,199* 

DATA  8000,3330,0000,8670,0000,06 

38,O000,E319* 

DATA  8000, 31FF,0,18FE, 0,070, 0,67 

C* 

DATA  0, 370,0, 1FC,0,FC, 0,0* 

DATA  0,0,0,0,0,0,0,0* 

DATA  0,C,0,C,0,F,0,0* 

L=  87  iDlM  sl2%{L)* 

FOR  1=0  TO  LsREAD  a? : sl2% (I ) =VAL 

("6<h"+a5)  :NEXT* 

DATA  13, 15, 2, 0303,98,0243, 30,630 

6* 

DATA  02, 3240,80, 1998, B0,PF0,C0, 7 

E0* 

DATA  0,7E0,0,7E0,0,7E0,98,7E0* 

DATA  30,7E0,C2,7E0,8C,660,B0,C30 

* 

DATA  00,1818,0,1818,0,1813,0,181 

8* 

DATA  0, 1818, 0,781E, 0,0303, 0,0303 

* 

DATA  0,6306, 0,3240,0, 1998, 0,FF0* 

DATA  0,7E0,0,7E0,0,7E0,0,7E0* 

DATA  0,7E0,0,7E0,0, 7E0, 0,660* 

DATA  0,030,0,1818,0,1818,0,1318* 

DATA  0,1818,0, 1818,0, 781E, 0,0* 

L=  39  ;DIM  sl3%(L)* 

FOR  1=0  TO  L:READ  a$  ■.9l3%(  I  )=VAL 

("S>h"+a5)  :NEXT* 


DATA  10,12,2,70,78,76,38,0* 

DATA  IC, 1B3E, 1C7F, 6CF, 18F, 400F, 6 

70F,2F8F* 

DATA  B9FF,907F,O00F,FFFF, 7FFE,70 

,78,78* 

DATA  38,0,10, 183E,107F,6CF,18F, 4 

00F* 

DATA  670F, 2F8F, B9FF, 907F, C00F, FF 

FF,7FFE,1818* 

L=  19  :DIM  3l8%(L)* 

FOR  I'=0  TO  L:READ  a?  i  3l8%  (  I  )=VAL 

("&h"+a$) :NEXT* 

DATA  8,8,2, 1000 , 3E00 , 3E00, 1000 , 7 

E00* 

DATA  FF00,FF00,FF00, 0,0, 0,0,0* 

DATA  80,30,80,0* 

L=  19  !DIM  3l7%(L)* 

FOR  1=0  TO  LiREAD  a? s 9l7% ( I ) =VAL 

C"&h"+a5) :NEXT* 

DATA  8,8,2,0,0,0,0,0* 

DATA  0,0,0, 1000, 3E00,3E00, 1000,7 

E00* 

DATA  FF80 , FF8a , FF80 , 0* 

L=  19  :DIM  3l9%(L)* 

FOR  1=0  TO  LrREAD  a? : 8l9%C I )=VAL 

("ih"+a$) :NEXT* 

DATA  8,8,2,1C00,3E00,3E00,1C00,7 

E00* 

DATA  FF00,FF00,FF00,1C00,3E00,3E 

00,1C00,7E00* 

DATA  FF80,FFB0,FF80,0* 

L=  19  :DIM  315%(L)* 

FOR  1=0  TO  L:READ  a$ : 3l5% ( I )=VAL 

("th"+a5) :NEXT* 

DATA  8,8,2,0300,6600,3000,3000,3 

000* 

DATA  3000,6600,0300,0,0,0,0,0* 

DATA  0,0,0,0* 

L=  19  :DIM  3l6%(L)* 

FOR  1=0  TO  L:READ  a? : 3l6% ( I)=VAL 

("&h"+a5) iNEXT* 

DATA  a, 8, 2, 8100, 8100, 8100, 8100, F 

F00* 

DATA  8100,8100,8100,8100,8100,81 

00,3100,FF00* 

DATA  8100,8100,8100,0* 

L=  19  sDIM  fll4%(L>* 

FOR  1=0  TO  LiREAD  a$ i sl4% ( I)=VAI 

("&h"+aS) :NEXT* 

DATA  8,8,2,70,78,78,38,0* 

DATA  1C,3E,7F,CCCF,CC8F,330F,330 

F,0C8F* 

DATA  CCFF,337F,330F,FFFF* 

again:* 

RANDOMIZE  TIMER* 

4 

CLS-* 

GOSUB  title* 

RETURN* 

* 

announce:* 

tallcS=c$* 

* 

talk:* 

IF  talkflag=0  THEN  SAY  TRANSLATE 

$(talk?) , voice** 

RETURN* 

* 

titles* 

talk5="preas  1  for  game,  2  for  t 

yping"* 

GOSUB  talk* 

WINDOW  4,"       Press  1  or  2",  (6 

5,70)-(250,110),16,l* 

PRINT: PRINT  "        1-  Game"* 

PRINT: PRINT  "       2-  Typing"* 

* 

grabkey i * 

a9-INKEY$sIP  a?=""  THEN  grabkey* 

w=VAl,(a$)* 

IF  w<l  OR  w>2  THEN  grabkey* 

talk?="Pre88  0  through  9  to  choo 

se  difficulty  level."* 

GOSUB  talk* 

WINDOW  4,"PreBB  0-9  for  difficul 


ty",(65,70)-(255,110),X6,l* 

PRINT: PRINT: PRINT  "     Enter  lev 

el  (0-9)"* 

* 

grabkeyl:* 

a$=INKEY?!lF  a$=""  OR  (a$<"0"  OR 

a?>"9")  THEN  grabkeyl* 

b=VAL(aS)* 

d-b:b=10-biIF  w=l  THEN  b»b*2* 

IF  w=2  THEN  b=b*40* 

WINDOW  CLOSE  4* 

tempS" " typi  ng " * 

IP  w=l  THEN  temp$="gaine"  * 

talk$»terop$+"      "+"level"+STR 

?(d)* 

GOSUB   talk* 

RETURS* 

* 

getoat;* 

WINDOW  CLOSE  3* 

SCREEN  CLOSE  1* 

WINDOW  1, "Tightrope", ,31,-1* 

WIMDOW  OUTPUT  1* 


Amiga  "Tightrope"  requires  512K  of 
memory  and  uses  keyboard  controls. 


This  version  of  "Tightrope"  runs  on  all 
Apple  II  computers  using  either  a  joy- 
stick or  game  paddles. 

Program  5:  Apple  Tightrope 

Version  by  Tim  Victor,  Editorial 
Programmer 

25  10  HOME  :  VTflB  6:  HTAS  8:  PRI 
NT  "READING  DATA,  PLEASE  U 
AIT":  GOSUB  770 

E<  20  TEXT  :  HOME  :  VTAB  12:  HTA 
B  15:  PRINT  " < 1 )  GAME":  HT 
AB  IS:  PRINT  "(2)  TYPINB": 
GET  A»!G«  =  VAL  f A«) S  IF 
BM  <  1  OR  GM  >  2  THEN  20 

n   30  HOME  :  VTAB  12:  HTAB  10:  P 
RINT  "DIFFICULTY (0-9)  ";: 
GET  L«:  IF  L«  <  "0"  OR  L* 
>  "9"  THEN  30 

S:  40  60SUB  590 

CE  50  CALL  32771 

58  60  LV  =  VAL  (L«):SC  =  0 

C?  ja   BO  =  1000:  GOSUB  5Z0:  1  =  2 


se 
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C6  B0  FOR  S  =  1  TO  3t  CALL  32768 
,S, I  -  8  «  2,32i  FOR  J  ■  1 

TD  2B0:  NEXT  !  NEXT 
7C  90  I  =  I  -  6:  IF  I  >  228  THEN 

80 
EE  100  DP  =  225  /  <LV  +  l.S):C  = 

0 
IE  110  FOR  J  =  1  TO  1000!  NEXT 
E2  120  IF  RND  (1)  >  .08  t  (10  - 

LV)  THEN  SOSUB  320 
Bf  130  IF  C  =  i  THEN  2B0 
fS  140  IF  GM  =  2  THEN  170 
M  150  IF  PDL  (0>  <  90  THEN  A  = 

4 I  BOSUB  3301  GOTO  130 
i1    160  IF  PDL  (0>  >  156  THEN  A  = 

8t  BQSUB  3301  SOTO  130 
IB  170  FDR  S  =  1  TO  3:  CALL  3276 


t  2,32 

3!  IF  BO  <  0  TH 


TO  150!  NEXT 
1-6:  IF  I  >  1 


B,S,I  - 
23  180  BO  =  BO 

EN  BO  s  0 
iS  190  SC  «  SC  +  LV  +  1:  GOSUB  5 

20 
71  200  FOR  J  = 
66  210  NEXT  5  I 

8  THEN  120 
Fl  220  LV  =  LV  +  1:  IF  LV  >  9  TH 

EN  LV  =  9 
92  230  SC  =  SC  +  BOl  GOSUB  520: 
1 
1 
S 
1 


TO  4001  NEXT 
TD  3:  CALL  3276 
«  2,32 
TD  300:  NEXT  ! 


6:  IF  I  >  0  THEN 


FOR  J 
16  240  FOR  S 

8,S,I 
54  250  FOR  J 

NEXT 
3F  260  1  =  1 

240 
3fl  270  GOTO  70 
CD  2B0  VTAB  2:  HTAB  7;  PRINT  "PR 

ESS  RETURN  TO  PLAY  AGAIN" 

!  HTAB  8:  PRINT  "PRESS  SP 

flCE  BAR  FOR  MENU" 
IC  290  POKE  49168,0:  GET  A«:  IF 

fl»  =  CHR«  (32>  THEN  20 
BD  300  IF  A*  =  CHR<i  (13)  THEN  VT 

AB  2;  PRINT  SPC (  80)!  GOT 

0  60 
BA  310  HOME 


320  A 


TEXT  : 
(  RND  (1) 


END 
>  .5) 


»  4  + 


73  330  CALL  3276a,A,I,32 
?(l  340  IF  GM  =  1  THEN  400 

74  350  C«  s:  CHR«  (65  -«-  26  t  RND 

(l>)s  VTAB  3:  HTAB  INT  (I 
/  7)  +  1:  PRINT  C« 

75  360  POKE  49168, 0:CT  =  DF 

15  370  K  =  PEEK  (49152)  :  IF  K  < 
128  THEN  CT  -  CT  -  li  IF 
CT  >  0  THEN  370 
77  380  IF  K  >  127  AND  K  -  128  = 

ASC  (C«)  THEN  500 
*B  390  PRINT  CHR»  (7):  GOTO  440 
AD  400  CT  =  DF  /  6 

M  410  IF  PDL  (0)  >  B9  AND  PDL  ( 
0)  <  157  THEN  CT  =  CT  -  1 
I  IF  CT  >  0  THEN  410 
J»  420  IF  PDL  (0)  <  90  AND  A  >  7 
OR  PDL  (0)  >  156  AND  A  < 
8  THEN  S00 
74  430  FOR  J  =  1  TO  CT:  NEXT 
iD  440  A  =  A  +  1:BD  =  BO  -  3:  IF 

A  =  8  THEN  A  =  12 
34  450  IF  A  <  12  THEN  330 
li   460  FOR  T  =  0  TO  40:  Y  =  142  - 
110  t    EXP  (  -  T  /  10)  « 
ABS  (  COS  (T  /  2) > 
H  470  CALL  32768,12, I, Y 
33  480  FOR  CT  =  1  TD  12:  NEXT  i 
NEXT 

1:  VTAB  3:  HTAB  INT  ( 
+  li  PRINT  "  "I  RE 


M  490  C  = 
I  / 


7) 
TURN 
C5  500  A  =  A-l!  IFA<  >3  AND 

A  <  >  7  THEN  330 
71  510  VTAB  3:  HTAB  INT  (1/7) 
+  l!  PRINT  "  ";C  =  0s  RET 
URN 
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Dl  520  A  =  FRE  (0)!  VTAB  Is  HTAB 

3 I  PRINT  "SCORei"tl  HTAB 

16i  PRINT  "BONUS!"!!  HTA 

B  29l  PRINT  "LEVELS"! 

HTAB  9:NL  =  5:NN  =  SCi  BD 

SUB  560 


Sf  530 
73  540 


HTAB  22: NL  =  SsNN  -  BO:  G 
OSUB  560 
63  550  HTAB  35iNL  =  1 :  NN  =  LV 
F2  560  NSS  =  RIGHT*  (  STR*  (NN)  , 

NL) 
11  570  IF  LEN  (NS«)  <  NL  THEN  NS 

«  =  "0"  +  NS«!  GOTO  570 
74  580  PRINT  NS*;  :  RETURN 
AB  590  HSR2  :  KCOLOR-  7 
4F  600  HCOLOR-  6:  FOR  X  =  1  TO  1 
2!  HPLOT  62,126  +  X  TD  19 
8,126  +  X  TO  240,76  +  Xs 
NEXT 
26  610  VTAB  10!  FOR  V  =  1  TO  7: 
HTAB  17  -  V:  FOR  H  =  1  TO 
19i  PRINT  CHR*  (60  +  INT 
(4  *  RND  (1>)  )  |i  NEXT  i 
PRINT  !  NEXT 
34  620  HCOLOR=  7!  FOR  X  =  160  TO 
60  STEP  -  6!  HPLOT  10, X 
TO  17, X:  HPLOT  250, X  TO  2 
57, XI  NEXT 
3£  630  FOR  X  =  0  TO  240  STEP  240 
!  FDR  Y  -  0  TO  7  STEP  7! 
HPLOT  10  +  X  +  Y,164  TO  1 
0  -t-  X  +  Y,56l  NEXT  !  NEXT 
61  640  HPLOT  4,56  TD  263,56 
65  650  HCOLOR"  5:  HPLOT  40,  148  T 
0  245, 148  TD  225, 173  TO  2 
0, 173  TO  40,148 
E7  660  FDR  X  =  -  12  TO  223  STEP 
12!SX  -  XsSV  "  173IEX  =  X 
+  501 EY  =  148 
94  670  IF  SX  <  20  THEN  SX  =  30  - 
2  t  X  /  3!SY  •=  173  -  SX 
/  2  +  X  /  2 
37  680  IF  EX  >  245  THEN  EX  =  376 
-  2  «  X  /  3!EY  -  173  -  e 
X  /  2  +  X  /  2 
6E  690  HPLOT  SX.SY  TD  EX.EYs  NEX 

T 
D!  700  FOR  X  =  20  TO  295  STEP  14 
iSX  =  XsSY  =  173!EX  =  X  - 
50! EY  -  148 
34  710  IF  EX  <  40  THEN  EX  =  15  + 
2  «  X  /  75EY  =  173  +  EX 
/  2  -  X  /  2 
M   720  IF  SX  >  225  THEN  SX  = 
+  2  t  X  /  7iSY  -  173 
X  /  2  -  X  /  2 
63  730  HPLOT  SX.SY  TD  EX.EY: 

T 
9C  740  HPLOT  19,173  TO  19,180!  H 
PLOT  225, 173  TO  225, 1B0: 
HPLOT  245, 14B  TO  245, 155 
21  750  RETURN 

FC  760  PRINT  "DATA  ERROR"!  END 
4E  770  FOR  A  =  768  TO  A  +  87:  RE 

AD  Dl  POKE  A,D!  NEXT 
94  780  READ  D:  IF  D  <  >  -  1  THEN 

760 
IB  790  FOR  A  -    32768  TO  A  +  502: 

READ  Dl  POKE  A,Di  NEXT 
85  800  READ  Dl  IF  D  <  >  -  1  Th4EN 

760 
7C  810  FOR  A  =  33620  TD  A  +  363: 

READ  Dl  POKE  A,Di  NEXT 
89  820  READ  Dl  IF  D  <  >  -  1  THEN 

760 
Ifl  830  FDR  A  =  36096  TO  A  +  7;  P 

DKE  fl, 1281  NEXT 
7E  840  FOR  A  =  36200  TO  A  +  367: 

READ  Dl  POKE  A,Ds  NEXT 
SF  B50  READ  Dj  IF  D  <  >  -  1  THEN 

760 
4J  B60  IF  PEEK  (190  *  256)  =  76 
THEN  PRINT  CHR*  (4) ; "PR#A 
768":  GOTO  880 
C7  B70  POKE  54,0:  POKE  53, 3i  CAL 


161 

+  S 


NEX 


L  1002 
5B  880  POKE  6,01  POKE  7,141:  POK 

E  230,64 
2A  890  RETURN 
79  900  DATA  216,120,133,69,134,7 

0, 132,71, 166,7, 10 
96  910  DATA  10,176,4,16,62,48,4, 

16, 1,232,232 
AE  920  DATA  10,134,27,24,101,6,1 

33,26,144,2,230 
FC  930  DATA  27,165,40,133,8,165, 

41,41,3,5,230 
91  940  DATA  133,9,162,8,160,0,17 

7,26,36,50,48 
CS  950  DATA  2,73,127,164,36,145, 

6,230,26,208,2 
M  960  DATA  230,27,165,9,24,105, 

4,133,9,202,208 
E7  970  DATA  226,165,69,166,70,16 

4,71,88,76,240,253 
C3  980  DATA  -1 
Dl  990  DATA  76,6,128,76,71,128,1 

73,9, 130,240,3 
69  1000  DATA  32,77,128,32,141,12 

a, 176,57,32,140, 129 
IF  1010  DATA  176,52,32,227,129,1 

76,47,173,249,129,133 
33  1020  DATA  252,141,7,130,173,2 

50, 129, 133,253,141,8 
59  1030  DATA  130,173,255,129,141 

,4, 130, 173,2,130,141 
IC  1040  DATA  5,130,173,3,130,141 

,6,130,169,255, 141 
iJ  1050  DATA  9,130,76,102,128,16 

9,0, 141,9, 130,96 
CE  1060  DATA  173,7,130,133,252,1 

73,8,130,133,253,173 
83  1070  DATA  4,130,141,255,129,1 

73,5, 130,141,2,130 
51  1080  DATA  173,6,130,169,2,141 

,251,129,169,24,141 
IE  1090  DATA  252,129,32,36,129,3 

2,205,128,32,22,129 
68  1100  DATA  238,255,129,165,252 

,24, 105,3, 133,252, 144 
El  1110  DATA  2,230,253,206,252,1 

29, 20B, 228, 96, 169, 12 
B6  1120  DATA  141,249,129,169,131 

, 141,250, 129,32,236, 129 
17  1130  DATA  201,21,144,1,96,141 

,247, 129,169,0, 141 
f£  1140  DATA  248,129,160,3,32,17 

4,128,160,3, 173,247 
91  1150  DATA  129,10,46,248,129,1 

36,208,249, 141,247, 129 
A7  1160  DATA  24,109,249,129,141, 

249, 129, 173, 250, 129, 109 
B2  1170  DATA  248,129,141,250,129 

,24,96, 172,251, 129,200 
fl  1180  DATA  140,253,129,169,0,1 

53, 12,130, 136,177,252 
4«  1190  DATA  153,12,130,136,16,2 

48, 173,12, 130,9, 127 
3C  1200  DATA  141,254,129,172,3,1 

30,240,21, 162,0,14 
IB  1210  DATA  12,130,189,12,130,1 

0,62,13,130,232,236 
F8  1220  DATA  253,129,208,243,136 

,208,235, 172,253,129, 185 
37  1230  DATA  12,130,9,128,45,254 

, 129, 153,12, 130, 136 
66  1240  DATA  16,242,96,172,253,1 

29, IBS, 12, 130,81,254 
C4  1250  DATA  145,254,136,16,246, 

96, 173,255, 129,41,63 
E6  1260  DATA  168,185,76,129,5,23 

0, 133,255, 173,255, 129 
(8  1270  DATA  41,8,240,2,169,128, 

24,44,255, 129,112 
IB  1280  DATA  4,16,4,105,40,105,4 

0,109,2, 130,133 
71  1290  DATA  254,96,0,4,8,12,16, 

20,24,28,0 
99  1300  DATA  4,8,12,16,20,24,28, 

1,5,9, 13 


Eft  1310  DftTfl  17,21,25,29,1,5,9,1 

3,17,21,25 
35  1320  DPITA  29,2,6,10,14,18,22, 

26,30,2,6 
31  1330  DATA  10,14,18,22,26,30,3 

,7,11,15,19 
4*  1340  DATA  23,27,31,3,7,11,15, 

19,23,27,31 
(F  1350  DATA  32,236,129,140,0,13 

0,141,158, 129,169,0 
IF  1360  DATA  141,1,130,24,160,4, 

105,216, 162,3, 106 
ift  1370  DATA  110,1,130,24,202,20 

8,248, 136,208,241, 141 
<B  1380  DATA  2,130,173,1,130,42, 

42,42,42,41,7 
27  1390  DATA  201,7,208,5,238,2,1 

30, 169,0,141,3 
DP  1400  DATA  130,173,0,130,240,2 

3,24,173,3,130,105 
E£  1410  DATA  4,201,7,144,2,169,0 

,141,3,130,173 
5^  1420  DATA  2,130,105,36,141,2, 

130,201,40,96,32 
69  1430  DATA  236,129,141,255,129 

,201,192,96,32,  177,0 
E2  1440  DATA  32,5,225,165,161,16 

4,160,96 
23  1450  DATA  -1 
5B  1460  DATA  0,0,0,0,0,0,0,28,0, 

0,60 
59  1470  DATA  0,0,62,0.0.28,0,0,1 

2,0,6 
«  1480  DATA  0,48,84,42,21,0,42, 

0,0,42,0 
CD  1490  DATA  0,42,0,0,42,0,0,42, 

0,0,42 
B!  1500  DATA  0,0,62,0,0,62,0,0,5 

1,0,64 
Fll  1510  DATA  97,0,64,97,0,64,65, 

1,64,65,1 
71  1520  DATA  64,1,3,96,64,1,0,0, 

0,0,0 
7C  1530  DATA  0,0,28,0,0,60,0,0,6 

2,0,0 
E7  1540  DATA  28,0,0,12,0,6,0,48, 

84,42,21 
BF  1550  DATA  0,42,0,0,42,0,0,42, 

0,0,42 
F7  1S60  DATA  0,0,42,0,0,42,0,0,6 

2,0,0 
B3  1570  DATA  62,0,0,54,0,0,54,0, 

0,99,0 
5D  1S80  DATA  0,67,1,0,6,3,0,70,) 

,0,3 
IC  1590  DATA  0,0,0,0,0,0,0,0,28, 

0,0 
n    1600  DATA  60,0,0,62,0,0,28,0, 

0,12,0 
3A  1610  DATA  6,0,48,84,42,21,0,4 

2,0,0,42 
El  1620  DATA  0,0,42,0,0,42,0,0,4 

2,0,0 
If    1630  DATA  42,0,0,62,0,0,62,0, 

0,54,0 
SB  1640  DATA  0,30,0,0,30,0,0,60, 

0,0, 10S 
SE  1650  DATA  0,0,56,0,0,12,0,0,0 

,0,0 
D7  1660  DATA  0,0,0,28,0,0,60,0,0 

,62,0 
ifl  1670  DATA  0,28,0,0,12,48,0,0, 

21,6,42 
a    1680  DATA  0,84,42,0,0,42,0,0, 

42,0,0 
IS  1690  DATA  42,0,0,42,0,0,42,0, 

0,62,0 
51  1700  DATA  0,62,0,0,54,0,0,54, 

0,0,99 
fC  1710  DATA  0,0,67,1,0,6,3,0,70 

,1,0 
33  1720  DATA  3,0,0,0,0,0,0,0.0,2 

8,0 
83  1730  DATA  0,60,0,0,62,24,0,28 
,8,0,12 


99  1740  DATA  4,0,0,1,0,42,0,64,4 

2,0,  16 
it  1750  DATA  42,0,8,42.0,12,42,0 

,0,42,0 
51  1760  DATA  0,42,0,0,62,0,0,62, 

0,0,54 
A2  1770  DATA  0,0,102,0,0,67,1,0, 

3,6,0 
CF  17B0  DATA  6,3,0,6,0,0,3,0,0,0 

,0 
FD  1790  DATA  0,0,0,0,28,0,0,60,4 

S.0,62 
F6  1B00  DATA  16,0,28,4,0,12,4,0, 

0,1,2 
U    1810  DATA  42,0,86,42,0,0,42,0 

,0,42,0 
Bft  1820  DATA  0,42,0,0,42,0,0,42. 

0,0,62 
iP    1830  DATA  0,0,62,0,0,102,0,0, 

70,1,0 
fD  1B40  DATA  3,3,0,3,6,0,6,3.0,6 

IE  1850  DATA  0,3,0,0.0,0,0,0,0,0 

.0 
DC  1860  DATA  0,0.0,0,0,28,0,0,60 

,12,12 
IB  1870  DATA  62,4,8,28,4,16,12,1 

,64,0, 1 
Dl  1880  DATA  0,42,0,0,42,0,0,42, 

0,0,42 
12  1890  DATA  0,0,42,0,0,42,0,0,4 

2,0,0 
Di  1900  DATA  62,0,0,126,0,0,102. 

1,0,3,7 
D6  1910  DATA  0,3,12,0,6,7,0,3,0, 

0,0 
73  1920  DATA  0,0,0,0,0,28,0,0,60 

.0.0 
CI  1930  DATA  62,0,6,28,0,4,12.0, 

80,0,0 
IB  1940  DATA  0,42,0,0,42,5,0,42, 

48,0,42 
F3  1950  DATA  0,0,42.0,0,42,0,0,4 

2,0,0 
M    1960  DATA  62,0,0,62,0,0,54,0, 

0, 124,0 
il  1970  DATA  0,124,1,0,12,3,0,10 

8,  1,0,16 
21  1980  DATA  0,0,12,0,0.0,0,0,0. 

0,0 
U    1990  DATA  28,0,0,60,0,12,62,0 

,8,28,0 
D9  2000  DATA  16,12,0,64,0,0,0,42 

,0,0,42 
il  2010  DATA  1,0,42,4,0,42,48,0, 

42,0,0 
2F  2020  DATA  42,0,0,42,0,0,62,0, 

0,62,0 
BO  2030  DATA  0,60,0,0.124,0.0,76 

,7,0,12 
92  2040  DATA  6,0,12,3,0,16,0,0,1 

2.0,0 
A7  2050  DATA  0,0,0,0,0,0,28,0,6, 

60,0 
9C  2060  DATA  4,62,0,16,26,0,16,1 

2,0,64,0 
31  2070  DATA  0,0,42,32,0,42,53,0 

,42,0.0 
a   2080  DATA  42,0.0,42,0,0,42,0, 

0,42,0 
DD  2090  DATA  0,62,0,0,60,0,0,120 

.0,0,24 
BE  2100  DATA  7,0,24,12,0,24,6,0, 

24,0,0 
8C  2110  DATA  24,0,0,12,0,0.0,0,0 

,0,0 
iF  2120  DATA  0,0,0,0,0,0,0,28,0, 

24,60 
S5  2130  DATA  0,16,62,24,16,28,8, 

64, 12,4.64 
ie  2140  DATA  0,1,0,42,0,0,42,0,0 

,42,0 
BB  2150  DATA  0,42,0,0,42,0,0,42, 

0,0,42 
9C  2160  DATA  0.0,62,0,0,60,0,0,1 


20,1,0 
IB  2170  DATA  24,6,0,24,3,0,48,0, 
0,28,0 

11  2180  DATA  0,0.0.0,0,0,0,0,0,0 

,e> 

72  2190  DATA  0,0,0,0,0,0,0,0,28, 

0,24 
tD  2200  DATA  60,12,16,62,4,16,28 

,4,64,12,1 
35  2210  DATA  64,0,1,0,42,0,0,42, 

0,4,46 
S9  2220  DATA  0,4,46,0,12,46.0,24 

,46.0,48 

12  2230  DATA  58,0,96.63,0,64.127 

,0.0, 119,0 
2D  2240  DATA  0,0,0,0,0,0 
21  2250  DATA  -1 
A5  2260  DATA  128,128,128,128,190 

, 128, 128, 128, 128, 128, 128 
B2  2270  DATA  190,128,190,128,128 

, 128, lea, 230, 176, 152, 128 
5E  2280  DATA  152,128,128,188,230 

, 246, 238, 230, 188, 128, 128 
«  2290  DATA  152, 156, 152, 1S2, 152 

, 188,128,128,188,230,176 
9?  2300  DATA  140,230,254,128,128 

, 18S, 230, 176, 224, 230, 188 
9!  2310  DATA  12B,  128,  176,  184,  180 

,254,176,176,128,128,254 
1ft  2320  DATA  134,190,224,230,188 

, 128,128, 188, 134, 190,230 
5ft   2330    DATA   230,188,128,128.254 

, 224, 176, 152, 140, 140, 128 
Di  2340    DATA    128,188,230,188,230 

,230, 188, 128,128,188,230 
23   2350    DATA   230,252,176,152,128 

, 128, 128, 152, 152, 128, 152 
IE   2360    DATA    152,  128,  128,  190,  190 

, 190, 190, 190, 190, 128. 128 
7F  2370    DATA    148,  14B,  148.  128,  148 

,213.213,0,20,20,20 
59  2380    DATA    0,20,85,85,128,136, 

170, 136, 128, 136, 170 
IB  2390  DATA  170,0,8,42,8,0,8,42 

,42, 128,128 
34  2400  DATA  152,  188,  188,  152,  128 

,128,128.252,230,230,254 
E8  2410  DATA  230.230,128,128,190 

,230,230,190,230,254,128 
3E  2420  DATA  128,188,230.134,134 

,230,190,128,128, 190,230 
5!  2430  DATA  230,230,230.190,128 

, 128,254, 134,134, 190,134 
2A  2440  DATA  254,128,128,234,134 

, 134, 190, 134, 154, 128, 128 
49  2450  DATA  188,230,134,246,230 

, 190, 128. 128, 230, 230, 230 
2A  2460  DATA  254,230,230.128,128 

, 152, 152, 152, 152, 152, IS2 
4i  2470  DATA  1 28 ,  1 28 ,  224  .  224  ,  224 

,224,230,188,128.  128,230 
IF  2480  DATA  230,182,158,230,230 

, 128, 128. 134, 134, 134, 134 
BB  2490  DATA  134,254,128,128,194 

, 230, 2S4 , 230, 230, 230, 128 
2D  2500  DATA  128,190,230,230.230 

,230,230, 128,128,188,230 
!£  2510  DATA  230,230,230,188,128 

,128,190,230,230,190, 134 
BE  2520  DATA  134,128,128,188,230 

, 230, 230, 182, 236, 128, 128 
BE  2530  DATA  190,230,230,190,230 

,230, 128, 128, 188,230,140 
a   2540  DATA  176,230,190,128,128 

, 254, 152, 152, 152, 152, 152 
81  2550  DATA  128,128,230,230,230 

,230,230,190,128,128,230 
M  2560  DATA  230,230,230,230,152 

,128, 128, 230,230,230,234 
92  2570    DATA    230,194,128,128,230 

,230.164,152, 164,230, 128 
W  2580   DATA    128,230,230,230,188 

,152,152, 128.128,254,176 
57  2590    DATA    152,140,134,254,128 
14  2600   DATA   -1  ® 
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What's  the  worst  position  on  a  soft- 
ball  team?  Catchers  have  to  squat  in 
an  uncomfortable  stance  for  an 
hour  or  more  and  duck  hazardous 
foul  balls.  Pitchers  have  to  duel 
with  mighty  sluggers  and  dodge 
powerful  line  drives.  First  basemen 
have  to  stretch  their  bodies  like  rub- 
ber bands  to  nab  wayward  throws 
from  their  teammates  while  keep- 
ing at  least  one  toe  on  the  base  bag. 
And  outfielders  have  to  scoop  up 
bouncing  grounders  with  the 
knowledge  that  no  one  is  backing 
them  up  except  the  outfield  fence. 

But  as  demanding  as  all  these 
positions  are,  there's  another  that 
could  be  worse — that  of  team  stat- 
istician. Keeping  track  of  your 
teammates'  performance  is  often  a 
laborious,  thankless  job.  Some- 
times the  statistician  is  a  reserve 
player  or  friend  of  the  team  who 
doesn't  even  get  to  play.  Caged  in 
the  dugout,  the  statistician  is  sup- 
posed to  document  every  hit,  run, 
and  walk,  and  boost  team  morale 
by  contributing  lively  chatter.  After 
the  game,  the  statistician  has  to 
spend  hours  punching  numbers 
into  a  calculator  to  figure  out  every- 
one else's  batting  average. 

"Softball  Statistics"  makes  that 
job  much  easier.  After  each  game, 
the  program  prompts  you  to  enter 
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Roger  Felton 

"Softball  Statistics"  makes  it  easy  to 
keep  track  of  all  the  individual  and 
team  results  for  your  favorite  team. 
You  can  enter  data  for  each  player's 
limes  at  hat,  hits,  runs,  and  so  on.  The 
program  automatically  computes  bat- 
ting averages,  stores  cumulative  re- 
sults on  disk  as  the  season  progresses, 
generates  formatted  printouts  with 
sorted  rankings  for  all  players,  and 
more.  The  program  was  originally 
written  for  the  eight-bit  Atari  and 
adapted  for  several  other  computers 
in  the  July  1985  issue  of  COMPUTE!. 
This  new  version  runs  in  medium-  or 
high-resolution  modes  on  any  Atari 
ST  with  the  TOS  operating  in  ROM. 
An  80-column  printer  is  optional  hut 
recommended. 


vital  stats  for  each  player.  Then  it 
automatically  calculates  the  batting 
averages  and  prints  sorted  rankings 
on  the  screen  or  printer.  It  can  also 
print  sorted  rankings  for  hits,  runs, 
and  runs  batted  in.  These  game  sta- 
tistics can  then  be  merged  with  data 


for  all  previous  games,  and  updated 
season  results  can  be  sorted  by  cate- 
gory and  printed.  Finally,  the  pro- 
gram lets  you  store  the  cumulative 
statistics  on  disk. 

If  you're  a  fan  of  professional 
or  Little  League  baseball,  you  can 
use  Softball  Statishcs  to  follow  the 
fortunes  of  your  favorite  team.  And 
with  modifications,  it  could  be 
adapted  to  a  wide  variety  of  sports. 

Preparing  The  Program 

Be  extra  careful  when  typing  Softball 
Statistics  because  a  mistyped  line 
could  yield  inaccurate  results  even  if 
the  program  runs  without  errors. 
Save  a  copy  on  disk  for  safekeeping 
before  running  it  the  first  fime. 

Before  using  the  program,  you 
have  to  prepare  it  by  entering  your 
team's  roster.  Softball  Statistics  can 
handle  a  team  with  up  to  20  players 
and  stores  this  information  in 
DATA  statements  as  part  of  the 
program  itself.  If  you're  keeping 
stats  for  more  than  one  team,  you'll 
have  to  keep  a  separate  copy  of  the 
program  for  each  team. 

The  DATA  statements  for 
player  information  begin  at  line 
2300.  The  statements  must  conform 
to  a  predefined  format:  a  two-digit 
jersey  number  followed  by  a  space, 
then  the  player's  first  or  last  name. 


Precede  one-digit  jersey  numbers 
with  a  zero,  such  as  08  for  8.  Names 
can  be  any  length,  but  only  the  first 
seven  characters  appear  on  the 
printouts.  Each  entry  is  separated 
by  a  comma.  Example: 

2300  DATA  23  LEE,17  JACKSON,33 
JOHNSTON,  10  LONGSTREET,04 
PICKETT 

(In  the  output,  JOHNSTON 
and  LONGSTREET  would  appear 
as  JOHNSTO  and  LONGSTR.) 

The  programs  are  listed  with 
dummy  entries  in  the  DATA  state- 
ments, such  as  44  Jim  and  10 
PLAYERX.  Substitute  your  own 
team  members  for  these  entries.  If 
your  team  has  fewer  than  20  play- 
ers, leave  the  remaining  dummy 
entries  in  the  DATA  statements  but 
substitute  the  name  PLAYERX;  the 
program  must  have  20  entries  to 
function,  and  it  ignores  the 
PLAYERX  entries. 

Finally,  put  your  own  team's 
name  in  the  TM$  string  statement 
at  line  190.  Softball  Statistics  is  now 
ready  to  run. 

Important  note:  You  should 
avoid  tinkering  with  the  player 
name  DATA  statements  once 
you've  started  using  the  program. 
Otherwise,  there  will  be  problems 
when  it  attempts  to  compute  cumu- 
lative season  totals.  If  you  drop  a 
player  from  the  roster  and  replace 
him  with  another  player,  the  new 
player's  totals  will  contain  the  old 
player's  results  as  well.  To  drop  a 
player,  substitute  a  PLAYERX  dum- 
my entry  at  that  position  in  the 
DATA  statement.  Of  course,  this 
means  the  dropped  player's  results 
will  no  longer  be  included  in  the 
team  totals  for  the  season.  If  you 
wish  to  retain  a  dropped  player's 
results  in  the  team  totals,  leave  the 
player's  name  in  the  DATA  state- 
ment and  enter  999  in  response  to 
all  input  prompts  for  that  player's 
stats  following  subsequent  games 
(see  below). 

Compiling  Statistics 

Once  the  roster  is  entered,  you  can 
run  the  program.  It  begins  by  ask- 
ing for  statistics   for  individual 
games.  The  first  prompt  asks: 
Who  did  you  play? 

Respond  with  the  opposing 
team's  name — such  as  Ham's  Din- 
er— and  press  RETURN.  The  next 
prompt  reads: 


Figure  1:  Printout  of  Team  Game  Stats 

ROSTER  IS  SORTED  BY  BATTING  AVEfiftSE 


I  PLAYER 
19  KflRTY 
83  JOHN 
55  MIKE 
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Enter  your  score  and  their  score 
(separated  by  a  comma): 

For  instance,  if  your  team  lost 
by  a  score  of  9  to  5,  you'd  type  5,9 
and  press  RETURN. 

The  program  now  begins  ask- 
ing for  individual  player  statistics.  If 
the  first  player  name  on  your  roster 
is  Kevin,  the  program  prints 
Kevin's  statistics  for  tiiis  game: 

and  then  prompts  you,  one  by  one, 
to  enter  the  number  of  times  at  bat, 
runs  scored,  hits,  runs  batted  in 
(RBls),  doubles,  triples,  home  runs, 
and  walks.  At  each  prompt,  type 
the  appropriate  number  and  press 
RETURN.  After  the  last  prompt,  the 
program  asks: 
Is  everything  OK  (Y/N)? 

If  you  made  any  mistakes 
while  entering  the  current  player's 
stats,  press  N.  You'll  be  given  a 
chance  to  reenter  the  numbers. 

When  all  the  player's  statistics 


are  correct,  press  Y  at  the  prompt. 
The  program  continues  to  the  next 
player  on  the  roster  and  repeats  the 
cycle. 

If  a  certain  player  missed  a 
game,  type  999  at  the  first  prompt. 
This  automatically  enters  zeros  for 
all  his  stats  and  skips  to  the  next 
player.  In  fact,  entering  999  at  any 
prompt  inputs  zeros  for  all  of  a 
player's  remaining  game  stats. 

Individual  Printouts 

After  you  type  the  last  statistic  for 
the  last  player,  the  program  prints 
the  message  WORKING  while  it 
sorts  all  the  data.  (The  WORKING 
message  appears  at  other  points  in 
the  program  during  sorts,  since  the 
sort  routine  is  written  in  BASIC  and 
is  not  particularly  fast.)  In  a  few 
moments,  the  program  says: 

Do  you  want  a  printout  of  the  game's 
stats  (Y/N)7 

Type  Y  for  yes  or  N  for  no.  If 


Figure  2:  Printout  of  Siugging  Stats 

HITS  SORT:  RBIS  SORT: 


RUNS  SORT: 


f  PLAYER 

HITS 

07  MARTY 

J 

03  JOHN 

4 

55  MIKE 

■7 

44  JIM 

3 

03  BOB 

7 

06  BARRY 

T 

38  KEN 

2 

22  PETE 

2 
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7 
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2i 
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RBIS 
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03  JOHN 

2 

22  PETE 

L 

08  BOB 

2 

44  Jin 

1 
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! 

03  KEH  ■ 

1 
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0 
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0 
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12 
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RUNS 

«  m 

4 

08  BOB 

3 

03  JOHN 

06  BARRY 

09  MARTY 

55  MIKE 

03  KEN 

22  PETE 

07  BILL 

TOTAL  RUNS 

17 
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you  press  N,  the  program  asks  if 
you  want  to  input  data  for  another 
game.  If  you  press  Y,  it  asks: 
To  screen  or  printer  (S/P)? 

Type  S  or  P.  Softball  Statistics 
then  prints  the  individual  stats  for 
all  team  members  for  that  game, 
sorted  in  descending  order  by  bat- 
ting averages  (see  Figure  1).  To 
pause  the  printout,  press  the  left 
mouse  button.  You  can  resume 
after  pausing  by  pressing  the  space 
bar. 

Next,  the  program  asks: 

Do  you  want  a  sorted  printout  of  hits, 
RBIs,  and  run  leaders  (Y/N>7 

Again,  type  Y  for  yes  or  N  for 
no.  If  you  type  N,  the  program  asks 
if  you  want  to  input  stats  for  anoth- 
er game.  If  you  answer  Y,  it  asks 
again  if  you  want  the  output  direct- 
ed to  the  screen  or  printer,  and  then 
prints  sorted  rankings  for  the  vari- 
ous slugging  categories  for  that 
game  (see  Figure  2).  As  before,  you 
can  stop  the  output  by  pressing  the 
left  mouse  button  and  restart  it  by 
pressing  the  space  bar. 

Finally,  the  program  asks: 

Do  you  want  to  input  stats  from  another 
game  (Y/N)7 

Usually  you  type  N  at  this 
prompt  unless  you're  entering  re- 
sults of  more  than  one  game.  If  you 
type  Y,  the  program  repeats  the 
entire  process  described  above. 

Season  Totals 

Softball  Statistics  makes  it  easy  for 
you  to  tabulate  running  totals  for 
the  entire  season  by  storing  game 
results  on  disk.  After  you've  en- 
tered and  viewed  the  stats  for  the 
most  recent  game,  the  program 
asks: 

Would  you  like  to  merge  in  data  for  the 
year  (Y/N)7 

The  first  time  you  run  Softball 
Statistics,  of  course,  you  won't  have 
any  previous  data  on  disk,  so  you'd 
answer  N,  skipping  to  the  next 
prompt.  During  subsequent  runs, 
you'd  answer  Y  to  merge  in  data  for 
the  year.  The  program  then  re- 
quests a  filename  for  the  disk  data 
file  and  merges  these  existing  stats 
with  the  results  you've  entered  for 
the  latest  game  or  games. 

Season  totals  are  then  comput- 
ed automatically,  and  the  program 
asks: 

Do  you  want  a  printout  of  the  year's 
stats  (Y/ND7 
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Figure  3:  Printout  of  Season  Totals 

STATISTICS  FOR  THE  YEhR: 
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If  you  answer  Y,  the  program 
asks  if  you  want  output  directed  to 
the  screen  or  printer,  and  then 
prints  season  totals  for  all  players. 
This  printout  includes  the  team's 
win-loss  record  and  sorts  players  in 
descending  order  by  batting  aver- 
ages (see  Figure  3). 

Afterward,  the  program  asks  if 
you  want  sorted  printouts  for  hits, 
RBIs,  and  runs — again,  based  on 
season  totals  (these  charts  resemble 
those  in  Figure  2).  Finally,  the  pro- 
gram gives  you  the  opportunity  to 
save  the  updated  data  file  on  disk 
until  the  next  game. 

If  you  typed  N  after  the  previ- 
ous prompt,  the  program  asks: 
Do  you  want  to  save  the  data  (Y/N)7 

If  you  answer  Y,  the  program 
asks  for  a  filename  for  the  updated 
data  file,  saves  the  file,  and  then 
ends. 

Softball  Computing 

If  you're  interested  in  program- 
ming, you  can  learn  a  lot  by  study- 
ing Softball  Statistics  because  it's 
written  in  straight  BASIC  with  no 
machine  language.  In  fact,  the  input 
and  output  routines  beginning  at 
lines  2350  and  2470  are  general 
enough  to  be  adapted  to  your  own 
programs. 

You  don't  have  to  be  a  pro- 
grammer, though,  to  appreciate 
Softball  Statistics.  If  you're  a  soft- 
ball  statistician,  no  longer  do  you 
have  the  worst  position  on  the 
team.  Maybe  it's  the  shortstop.,.. 


Softball  Statistics  For  Atari  ST 

Version  By  George  Miller,  Assistant 
Technical  Editor 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  COMPUTE!. 

TITLE*="  SoftbBll  Statist 

I  c  s  "-i-CHBt  C  0) 

LPt  =  SPACE  J  C  2)-»"  »  PLAYER"* 

SPACEtf  4)»"AB"*SPACEt[3) 

LP»=LPt*" RUNS "-SPACE J( 2 )♦ 

'■  HITS  "♦SPACEt(3)t"flBI  "'SPA 

CE« ( 3  ) 

LPI  =  LPH-"2B"  +  SPACE«(4)*"3 

B" tSPACEt ( 4 )  +  "HR" *SPACE  « ( 4 

)t"BB"*SPACEt(4)+"AVG" 

GOSUS  CLEARIT 

IF  PEEKC SrSTABtO )  <>  4  TH 

EN  140 

SOFTBALL  STATIST 


10 


20 


30 


40 


50 
60 


70 

BO 

90 
I  00 

1  10 

120 
1  3  0 
HO 

I  60 
160 
1  70 
160 


190 
200 
2  to 
220 
230 
240 
250 
260 
270 
260 
290 


300 
3  10 
320 


PR  INT 
ICS'" 
PR  I  NT 

OR  H  I 
PR  I  NT 
PR  I  NT 
tilROL 
PRINT 


"  REQUIRES  A  MEDIUM 
RESOLUT ION" 

■'  SCREEN  .":  PR  I  NT 

■     PLEASE    USE    THE    CO 

PAtiEL" 

TO  BESET  RESOLUT i 
ON  BEFORE" 

PRINT  "  CONTINUING." 
END 

GOSUB  CLEAR  I T ;GOSUB  TITLE 
BAR 
05^5 
06  =  2 
PL=20 

DIM  Bt9)  ,CC(20K  INC2U  .ST 
t8)  ,RT(20,a),TT(20,a)  ,Ft(8 
)  , NASC20) .RJt2  1  ) 
TM*= "Sundogs " 
Ci="00O0" 
FOR  l=!  TO  S 
READ  F(C I ) 
NEXT  I 

FOR  J= I  TO  PL 
READ  NAt(J) 

NAt(J)=MID«tNAICJ). 1 , 10) 
NEXT  J 

FOR  J=1  TO  PL 
Rl( J)=MID»tNAt{J) , 1 , LENIN 
AJCJ)  ))tSPACE»(  10-LEN(NA«C 
J)  )  ) 

FOR  1=1  TO  a 
TT( J,  I  )=0 
ST( t )=0 


330 

340 
350 


360 
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370 
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440 


450 
460 
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560 
570 
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640 
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660 
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700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
3  10 
820 
830 
840 
850 

860 


870 

880 

890 

900 

910 
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930 

940 

NEXT  I 

NEXT  J 

GOSUB  CLEARIT:GOTOXY  5,10 

:  PR  I  NT  "Do  jfOu  wan  I   t  p  :  "  :  P 

R  I  NT 

PRINT  SPACEIC20)  ! "  1  ]  Enle 

r  new  statistics." 

PRINT  SPACE«C20) ; "2)  nev , 

ew  disk  file" 

A  =  INP(2  ) 

I  F  A  =  ASCf  ■'  1  "  )  THEN  4  1  0 

IF  A  =  ASCt"2")  THEN  3530 

GOTO  370 

GOSUB  CLEAR  I T : PR  I  NT  "GAME 

STAT  1ST  tCS" 
PRINTiPRINT  "Who  did  you 
play" 
INPUT  OTt 

PRINT:PRINT  "Enler  youf  j 
cora  and  their  score  Csepa 
rated  by  a  comma}" 
INPUT  YS.TS 
W=W+ABS ( YS  >TS) 
L=L+ABS( TS>YS ) 
FOR  J=1  TO  PL 
IF  Ml D»  CNAt t  J )  , 4  , 7 ) <  > "PLA 
YERX"  THEN  520 
RtCJJ=fit(J)+"O000000O0O00 

000000000000000000000. 000" 

GOTO  730 

GOSUB  CLEARIT 

PRI  NT  ^4I  Dt(NA«(  J  1 


4 , LEN(N 


Statistics  for 


i  TABt  1 4  )  1 


'Is  everything 


A  t ( J  )));"■ 9 
this  game  : 
FOR  1=1  TO 
B(  I  )=0 
PRINT  Fl( I ) 
I NPUT  B( n 

IF  LENCSTRlceC  n  )  J  >  =  0 
EN  650 

IF  6( I ) ( >999  THEN  640 
FOR  K=l  TO  6 
B(K  )  =0 
NEXT  K 

I  =a 

NEXT   1 

PRI NT : PR  I  NT 

OK  CV/N)   ?" 
At  =  CHH* [  I NPl 2  n 
IF  A»  =  "N"  OR  At  =  "n"  T 
HEN  520 
GOSUB  BU I LDR 
FOR  1=1  TO  8 
RTC  J  ,  I  ) =RTC  J ,  n ♦BC  I  ) 

TT(  J ,  I  )=TTc  J .  n  +  Bc  n 

NEXT   I 

NEXT  J 

GOSUB  WORK ING 

MM=0 

FOR  1=1  TO  a 

FOR  J= 1  TO  PL 

ST(l)=STCn<-TT(J.n 

NEXT   J 

Bill =STC I ) 

NEXT   I 

RIC  J)="" 

GOSUB  BUILDR 

TT«=RIC J) 

GOSUB  AVERAGE : GOSUB  CLEAR 

IT 

PRINT  "Do  you 

li  t  .statistics 

game  (Y/Nl?" 
GOSUB  GETKEY 
IF  A*  =  "Y"  OR 
HEN  280 
GOSUB  CLEAR ! T 
PRINT  "Would  you  I 
merge  in  data  for 

( Y/N)?" 
GOSUB  QETKEY 
I F ■ A»  =  "N"  OR  At 
HEN  960 

GOSUB  CHECKFILE 
W=SW+W 


wa  n  t 
f  r  om 


At 


to   1  n  p 
H  n  0  I  h  '^  r 


I  k  e 
t  he 


to 
yea  r 


950 

960 
970 
980 
990 


1000 

1010 
1020 
1  030 
1040 
1050 
1  060 
1070 
1080 
1090 
1  100 
1110 
I  120 
I  130 
1  140 
1  150 
I  160 
1  1  70 
1  180 
1  190 
1200 
12  10 


1220 
1230 


1240 
1250 


1270 
1280 

1290 
1300 

1310 
1320 

1330 
1340 
1360 

1360 
1370 
1380 
I  390 

I  400 
14)0 
1  420 
1430 
1  440 
1  450 
1460 
1470 
1480 
1  490 
1500 

15  10 
1.520 
1530 
1540 

1  550 
1  560 
1570 

1580 
1590 
1600 

16  10 
1620 

1630 
1640 

1650 
1660 


L=SLtL 

GOSUB  WORKING 

FOR  J=l  TO  PL 

FOR  1=1  TO  8 

IF  A»="N"  OR  A»="n"  OR  Ml 

Dt tNAt ( J ) . 4 , 7 )="PLAYERX"  T 

HEN  1040 

B(  I  )=VAl(MIDt(Rt(J>,  llt-t  I 

-U*4  ,4)) 

BC  I  )  =  RT(  J,  n+BC  n 

RTCJ.  n=8(  I  ) 

GOTO  1050 

BC I )=RTC J , I ) 

ST(  n  =  o 

NEXT  I 

Rt  (  J  )  =MI  OK  R»  C  J  )  ,  1  ,  10  ) 

GOSUB  BUI  LOR 

NEXT  J 

MM=  1 

FOR  1=1  TO  8 

FOR  J=1  TO  PL 

SIC  I  )  =  ST(  I JtRTt J.  I  ) 

NEXT  J 

B(  I  )  =  ST(  I  ) 

NEXT  I 

R«( Jl="" 

GOSUB  BUILDR 

TTt=R»(J) 

GOSUa  CLEARIT 

PRINT  "Do  you  want  a  prin 

tout  ol  the  year's  statist 

1  c  3  (  Y  /  N  )  ?  ■' 

GOSUB  GETKEY 

IF  At  =  "N"  OR  At  =  "n"  T 

HEN  1260 

GOSUB  WORKING 

GOSUB  AVERAGE :GOSUB  CLEAR 

I  T 

PR  I  NT 

E  1  he 

GOSUB 

I  F  At 


"Do  you  want  to  SAV 

data  CY/N)?" 

GETKEY 

=  "Y"  OR  At  =  "y"  T 


HEN  1300 

END 

GOTO  WRI TEFILE 

SHELL : 

FOR  J=1  TO  PL 
I N[ J)= J 

CCCJ)=VAL(MIDttflt(J).BB,E 
)) 

NEXT  J 

FOR  J:PL-1  TO  1  STEP  -1 
FOR  1=1  TO  J 

IF  CCt  I NC  I  ) )  >CCC  INC  I  +  n  ) 
THEN  1430 
TE= INC  I  3 
INtl)  =  INCI*-n 
INC  I  t  n  =  T  E 
NEXT  I 
NEXT  J 
RETURN 

BU I LDR: 

IF  BC  1  )  =0  THEN  15  10 

IF  BC  3 ) =0  THEN  15  10 

GOTO  1540 

Bcg)=o 

AVt="0 . 000" 

GOTO  1650 

B(93= INTCeC3)/BC 1 J»1000t . 

5 ) / 1 000* . 000 1 

FOR  1=1  TO  8 

Bt =STRt C6C  I  )  1 

Bt=MIOJCCt .  1  ,D5-LENCB»)  )» 

Ml Dt  CB( ,06, LENC  Bt  )  1 

FttC  J)=R*C  J)+Bt 

NEXT  I 

IF  B( 9 ) =0  THEN   I  660 
AVt  =  STRIC  BC9)  ) 

IF  MIDtCAVI  ,  1  ,  1  )  <>'■  "  THE 
N  1640 
AVt=MIDtCAVt ,2.6) 

I F  MIDtCAVt ,  1  .  n  <> " ."  THE 

N  1660 

AVt="0"*AVt 

Rt( J)=Rt(j:+MlDtCAVt , 1,5) 


1670 

RETURN 

1680 

' 

1690 

AVERAGE: 

1  700 

BB  =  43 

1710 

E=5 

1720 

GOSUB  SHELL 

1730 

IF  MM=1  THEN  1770 

1740 

GOSUB  CLEARIT 

1  750 

PRINT  "Do  you  want  a  prin 

tout  of  the  game's  statist 

ica  CY/N)?" 

1  760 

GOSUe  GETKEY 

1770 

IF  At  =  "N"  OR  At  =  "n"  T 

HEN  1810 

1780 

GOSUB  PRINTOPT 

1790 

IF  OE  =  1  THEN  GOSUB  SORE 

ENPRNTrGOTO  1810 

1800 

IF  DE  =  2  THEN  GOTO  L INEP 

RNT 

1810 

RETURN 

1820 
1830 
I  840 
1850 
1660 
1870 
1680 
1890 


1  900 
1910 

1920 
1930 
1940 
1950 
I960 
1970 
1960 
T990 
2000 

2010 
2020 
2030 
2040 

2050 
2060 
2070 
2080 

2090 

2100 
2110 
2120 
2130 


2140 

2150 
2  160 
2170 
2180 

2190 
2200 

2210 

2220 
2230 
2240 
2250 

2260 
2270 
2280 


2290 
2300 
2310 


WORKING: 

PRINT 

PRINT  "  WORKING. 

RETURN 


PRINT 
PR  I  NT 
prin 
and 
GOSUB 
I  F  At 
HEN  1 
GOSUB 
GOTO 
RETUR 

Gosua 

BB=19 
i  =  4 
GOSUB 

I  =3 

IF  OE 
REEN 
BB  =  23 
GOSUB 

I  =4 

IF  OE 
REEN 
BB=  1  5 
GOSUB 

I  =2 

I  F  DE 

REEN 

RETUR 


"Do  you  want  sorted 
touts  of  hits,  RBl's, 
run  leaders  CY/N)?" 

GETKEY 

=  "N"  OR  At  =  "n"  T 
940 

PRI NTOPT 
(950 
N 

WORK  I NQ 


SHELL 

=  1  THEN  GOSUB  TOSC 
ELSE  GOSUB  TOLINEPTR 

SHELL 

=  1  THEN  GOSUB  TOSC 
ELSE  GOSUB  TOLINEPTR 

SHELL 

=  1  THEN  GOSUB  TOSC 
ELSE  GOSUB  TOLINEPTR 
N 


GETKEY : 

At  =  CHRtClNPC2)) 

IF  At  =  »N"  OR  At  =  "n' 

R  At  =  "Y"  OR  At  =  "y" 

N  RETURN  ELSE  2120 

RETURN 


0 

THE 


PRI NTOPT : 

PRINT 

PRINT  "To  screen  or  print 

er  CS/P)?" 

At  =  CHRtC  INPC2)  ) 


IF  At  =  ' 
HEN  DE  = 
IF  At  =  ' 
HEN  DE  = 
RETURN 

CLEAR  I T : 
CLEARW  2 
,  0 
RETURN 


S"  OB  At  =  "J" 
1 :GOTO  2220 
P"  OR  At  =  "p" 
2  ELSE  2190 


FULLW  2 iGOTOXY  0 


DATA  Times  a1  Bat, Runs, Hi 

ts.RBI  's, Doubles, Triples, H 

ome  Runs ,Wa I k  s 

REM  LIST  PLAYERS  BY  NUMBE 

R  &  NAME 

DATA  01  Kevin. O:  Tom. 03  P 

atrick,04  E(ldia,OS  Gregg 

DATA  06  George, 07  David  H 

.  , 08  Dav  id  F .  , 09  Se I  by  ,  10 
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2320 
2330 


2340 
2350 
2360 
2370 
2380 
2390 

2400 
24  10 
2420 
2A30 
24  4  0 


24S0 
2460 

2470 
2430 
2490 

2500 
2510 
2620 
2530 
2540 

2550 
2560 
2570 
2580 
2590 
2600 
2610 

2620 

2630 
2640 
2650 
2660 
2670 


26S0 
2690 


2700 


27  10 


2720 


2730 

2740 


2770 


2790 


2600 


2810 


2820 


2830 


2840 
26S0 


MarK 

DATA  1 1  N«a 1.12  By r on , 1 3 

Peu  !  ,  1  4  John .  1 5  Leon 

DATA  16  David  K,17  Mike.1 

8  PLAYERX.IS  PLAYERX.20  PL 

AYERX 

REM  INPUT  ROUTINE 

CKECKFILE: 

ON  ERROR  GOTO  2600 

GOSUB  CLEARIT 

PRINT"Mame  for 

:  :  INPUT  FFt 

OPEN  "  I  " , « 1 , FFt 

INPUT  il.SW.SL 

FOR  J=1  TO  PL 

INPUT  #1 ,Rt( J) 

Rt( J)=MIO(CNAt( J) 

A*  C  J) > ) tSPACEl C  1  0 

Jn  )+R»C  J) 

NEXT  J  :CLOSE  *1  iRETURN 


data  file' 


1 .LENCN 
LENCNAI t 


WR  I  T  E  F I L  E  : 

GOSUB  CLEAflIT: 

PR  I NT"Name  of  data  file 

0  write"!; INPUT  FFt 


,FFt 


TO  PL 
MIOICRt ( J  )  ,  11 


OPEN  "0",«1 
PR  I NT#1  ,W 
PR INT»1 , L 
FOR  J  =  1 
PRINT  •  1  , 
2) 

NEXT  J 
CLOSE  tl 
END 


CHECKERROR: 

IF  ERR  :  53  THEN  2620 

PRINT  "Error  Number  ■■  ;  ERR 

; "  at  line  " sERL :END 

PR  I  NT  "File  not  found  on 

dfsK  drive  specified." 

CLOSE  I 

RESUME  2390 

SCREENPRNT : 

GOSUB  CLEAR  I T : PR  I  NT  :  I F  MM 

=)  THEN  Tt="THE  YEAR":GOTO 

2690 
Tt="THIS  GAME" 
PRINT  "STATISTICS  FOR  "TI 
":":IF  MM=1  THEN  GOTO  27  10 

PBINT  TMt"  VS  "OTt"      Sc 
ore : "YS"-"TS:GOTO  2720 
PRINT  "RECORD  FOR  THE  VEA 
Ft:   Wi  n  J  I  "W"  Losses  :"  L 
PRINT  : PR  I  NT  "Ros  te  r  i  9  9 
orfed  by  batting  average": 
PR  INT 
PRINT  LPt 
FOR  J=1  TO  PL:GOSUB  PAUSE 

IF  MIDt(R$(  IN( J)  )  ,4 ,7)  =  "P 
LAYERX"  THEN  2830 
PRINT  SPACEtC 1 ) jMIDttBtt I 
N(  jn,  1  ,  lOJsSPACEK  >)! 
FOR  I :  t  TO  8:0=0:FOR  K=0 

TO  3 
IF  MIDtCRtC INC J3 ) . II+C 1-1 
3«4+K, 1 )  <i     "0"  THEN  0=1 
IF  Ml  DICRt  t  INC  J  )  )  ,  11  +  C  I  -  1 
)»4+K,l)="0"  AND  0=0  AND  K 
=3  THEN  PRINT  "0"!:GOTO  26 
20 

IF  MIOt  C  Rt  C  I  N{ J  n  ,  1  1  tC  I  -  1 
)»4*K,1)="0"  AND  0=0  THEN 
PR  INT  "  " !  :G0TO  2820 
PRINT  MIDtCRtC  INC J)3  ,  1  1*t 
I  -  n*4*K  ,  n  ; 

NEXT  K:PRINT  SPACEtC2);:N 
EXT   l;PRINT  SPACEtC 1 ) iMIDt 
C  H  t  C  I  N  C  J  )  )  ,  4  3  ,  5  ) 
NEXT  J:PRINT  :PRINT  •■  TOT 
ALS" iSPACEtC5) ; 
FOR  1=1  TO  e 
Q:0:FOR  K=l  TO  4: IF  MIDtC 


2860 

2870 

2S60 
2890 


2900 
29  10 
2920 
2930 

2940 


2650 
2960 
2970 

2980 

2990 

3000 

3010 

3020 

3030 
3040 
3050 
3060 

3070 
3080 

3090 

3  1  00 
3  110 

3  120 
3  130 

3  140 

3  150 

3160 

3  170 

3  1  80 

3  190 

3200 
32  10 


3230 
3240 


3250 


TTt  ,  C  I -1  )«4  +  K,  1)  t  >  "0"  TH 

EN  0=1 

IF  Ml DtCTTt , (  t -  1  )»4  +  K,  I  )  = 

"0"  AND  0=0  AND  K=4  THEN  P 

RINT  "0" ! :GOTO  2890 

IF  MIDtCTTt  ,C  1- t)»4  +  K,  n  = 

"0"  AND  0=0  THEN  PRINT  SPA 

CetC 1 ) ! :GOTO  2890 

PRINT  Ml DtCTTt ,  C  I  - n«4tK , 

I  )  ! 

NEXT  K:PRINT  SPACEt(2)!:N 

EXT  I  :PRINT  SPACEIC 1 ) iMIDt 

t  TTt , 33 , 5) 

PRINT  :GOTO  1680 


TOSCREEN: 

PRINT  :T=0:PfilNT 
ten"  SORT:  "  :PR1N 
PRINT  "•   PLAYER" 
6J  iFtC  n :FOR  J  =  l 
ua  PAUSE 

IF  MIDtCRtCINCjn 
LAYERX"  THEN  3020 
PR  I  NT  Ml DtCRt  C  I NC 
)  tSPACEtC  4 ]  : 
O=0:FOR  K=0  TO  3: 
RtC  I Nt  J) ) ,BB*K,  1  ] 
HEN  0=1 

IF  MIDICRtC  INC  J)  ) 
="0"  AND  0=0  AND 

PRINT  "0" :G0T0  3 
IF  Ml DtCRt  C  INC  J  )  ) 
="0"  AND  0=0  THEN 
ACEt C  1  )  J  :G0TO  30 1 
PRINT  MIDICRtC INC 
, 1 ) : : IF  K=3  THEN 
NEXT  K:T=T+VALCMI 
C  J3  )  ,BB,En 
NEXT  J  :  PR  INT  : PR  I 
L  "  i  Etc  I  )  ! SPACEIC 
PRINT  :  RETURN 


: PRI NT  F 

T 

; spBcei C 

TO  PL:GOS 

,  4  ,  7  )  =  "  f> 

J )  )  .  1  ,  10 

IF  Ml Dt t 
<>  "0"  T 

, BB*K, 1 ) 
K=3  THEN 
0  1  0 
. BBtK  .  I  3 

PR  I  NT  SP 
0 

J ) ) , BB+K 
PRINT 
Ot CRt C I N 

NT  "TOTA 
51  ;T 


L INEPRNT: 

LPRINT:IF  MM=1THEN  TI="TH 

E  YEAR" ;GOTO  3080 

Tt="THIS  GAME" 

LPRINT  "STATISTICS  FOR  "T 

t":":IF  MM=1  THEN  GOTO  310 

0 

LPRINT  TMt"  VS  "OTt"     S 

CORE : "YS"-"TS :GOTO  3110 

LPRINT  "Record  tor  ttie  ye 
a  r  :   Wins: "W"  Losses:  "L 
LPR I  NT  : LPfll NT  "Ros  tef  i  5 

sorted  by  Batting  Average 
" :LPRINT 
LPRINT  LPt 
FOR  J=1  TO  PL:GOSUB  PAUSE 


F  Ml  Dt 
AYERX" 
PR  I  NT 
NC  J  n  , 
OR  I  =. 
TO  3 
F  MtDt 
«4*K, 1 
F  Ml  Dt 
»4*K  ,  1 
3  THEN 
10 

F  MIOt 
»4*K . 1 
PRINT 
PR  I  NT 
I  -  1  )«4 
EXT  K  : 
EXT  I  : 
t  CRt  C  I 
EXT  J  : 
ALS"+S 
OR  1  =  1 

0:FOR 

Tt  ,  C  1- 

N  0=  1 
F  Ml  Dt 
0"  AND 


CRt  C  INC  J ) J  ,  4  ,  7 )  =  "P 

THEN  3220 
SPACEtC  1  )  ;MI DJCRt  t 
1,101; SPACEtC 1 1 i 
1   TO  8 :0=0 : FOR  K=0 

CRt{  I N( J  ]  )  ,  1  I  ♦ C  1-1 
)   <  >  "0"  THEN  0=  1 
CRtC  INC  J  )  )  ,  I  1  -t  C  I  -  I 
)="0"  AND  Q=0  AND  K 
LPR INT  "0" ; ;GOTO  3 


CRt 
) 

Ml  D 
<-K  , 
LPR 
LPR 
NC  J 
LPR 
PAC 
TO 
K  = 
1  )* 


CINCJ1)-1I+C  t-1 

0"  AND  0=0  THEN 

; iGOTO  32 10 

t  C  R  t  C  I  N  C  J  1  )  ,  1  t  •- 

1  )  ; 

I  NT  SPACEt  C  2  J  1  : 

INT  SPACEt  C  n  iMI 

)  )  ,  43 , 51 

tNT:LPRINT  "  TO 

EICS)  ; 


I  TO  4  : 
4  +  K  ,  I  ) 


IF  MIDtC 
<  >  "  0  "  T  H 


CTTl, C 1-1 )»4*K, 1 ): 
0=0  AND  K=4  THEN  L 


3270 
3280 


3290 
3300 
33  10 
3320 

3330 


33*0 
3350 
3360 

33T0 

3380 

3390 

3400 

34  10 

3420 
3430 
3440 
34  60 

3460 
3470 
3480 

3490 

3500 

3510 

3520 
3530 
3540 
3550 
3580 
3570 
3580 
3590 
3600 

3610 

3620 
3630 
3640 
3650 
3660 
3670 
3680 
3690 
3700 

37  10 
3720 
3730 
3740 
3750 
3760 
3770 
3780 
3790 
3600 
3810 

38  20 
3830 

3840 


PR  I 

I  F 

"0" 

ACE 

LPR 

,  1  ) 

NEX 

NEX 

DtC 

LPR 


NT  "0" I :GOTO  3280 

Ml  DtC  TTt  ,  C  I  -  n»4  +  K  ,  1  1  = 

AND  0=0  THEN  LPRINT  SP 
ten;  :GOTO  3280 
INT  MIDtCTTt. E 1-1 1*4*K 


T  X.  :  LPR  I  NT 
T   I  : LPR I  NT 
TTt  ,33  ,5) 
INT:GOTO  1880 


SPACEIC2) ; : 

SPACEtC  n iMI 


TOLINEPTR: 

LPRINT  :T=0:LPRINT  : LPR I N 

T  Ft C  1  )  "  SORT : "  : LPR I  NT 

LPRINT  "•"+SPACEt C2)t"PLA 

YER"+SPACEtC6 ) iF t C 1 ) :FOR  J 

=  I  TO  PL :GOSUB  PAUSE 

IF  MIDtCRtCINCjn,4,7]="P 

LAYERX"  THEN  3410 

LPR  I  NT  Ml  DtCRtC  I  NC  jn  ,  1  ,  1 

0)SPACEtC4) ; 

0=0 ; FOR  K=0  TO  3 : I F  Ml DtC 

Rt C  I  N  C  J )  )  , BB*K ,  n  <>      "0"  T 

HEN  0=1 

IF  Ml DtC  Rt  C  I NC  Jl } ,BB«K  ,  1  > 

="0"  AND  Q=0  AND  K=3  THEN 

LPRINT  "0":GOTO  3400 
IF  MIDtCRtC  INC  J))  ,BB  +  K,  1 } 
="0"  AND  0=0  THEN  LPRINT  S 
PACEtC 1 ) ; :GOTO  3400 
LPRINT  Ml  Dt  CRt  C  I  NC  jn  .BB« 
K  ,  1)  ;  :  I  F  K  =  3  THEN  LPR I  NT 
NEXT  K: T=TtVAL CMI Dt C Rt C I N 
C  J)  )  , BB, E)  ) 

NEXT  J:LPRINT  iLPRINT  "TO 
TAL  "  ;FI t  I  )  1 SPACEtC  5  )  r  T 
LPRINT ;RETURN 

PAUSE : 

IF  PEEKC&HFFFC02)  > 

N  3450  ELSE  RETURN 


0  THE 


T  ITLEBAR: 

A»  =  GB  :  GINTIN  =  PEEKCA 

•  *8) 

POKE  G I  NT tN  +  0 , PEEKC SYSTAB 

+  8)  :  POKE  Gl NT  I N*2 , 2 

S«  =  Gl NT IN*4  :  T I TLE t  = 

T  I  TLEt  t  CHRtC  0) 

POKE  S«. VARPTRCT ITLEt )  ; 

GEMSYSC 105) 

RETURN 

REVI EW: 

GOSUB  CHECKFILE 

W:SWi-W 

L=SL+L 

GOSUB  WORKING 

FOR  J=1  TO  PL 

FOR  1=1  TO  8 

IF  At="N"  OR  At="n"  OR  Ml 

DtCNAtC Jl .4 ,7)="PLAYEBX"  T 

HEN  3620 

BC  I  )=VALCMI DtCRt C  J)  ,  1  1  *C  I 

-1  )*4  .4)) 

B{  I  )=RTC J .  I  )»BC  n 

RT  C  J  ,  1  ) =BC  I  1 

GOTO  3660 

BC  t  )  =  RTC J ,  I  ) 

STC  n=o 

NEXT  I 

RtC  J)=MIDtCRtC JJ  ,  1  ,  10) 

GOSUB  BUILDR 

NEXT  J 

MM=  1 

FOR  1=1  TO  6 

FOR  J=l  TO  PL 

STC  I  )=STC  I  )  +  RT( J .  I  ) 

NEXT  J 

BC  n  =  STC  I  ) 

NEXT  I 

R  t  C  J  )  =  "  " 

GOSUe  BUILDR 

T  T  t  =  R  t  C  J  ) 

GOSUB  CLEARI T 

GOSUB  WORKING 

GOSUB  AVERAGE 

I  T 

END 


GOSUB  CLEAR 
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Reviews 


Toshiba  P321  Printer 

Tim  Victor,  Editorial  Programmer 


Requirements:  Any  compatible  computer 
with  the  appropriate  interface. 


A  few  years  ago  it  was  easy  to  spend  a 
lot  of  money  for  a  computer  printer  and 
still  not  get  top-of-the-line  quality.  Un- 
less you  were  satisfied  with  a  40-co!umn 
thermal  printer,  you  generally  had  to 
lay  out  several  hundred  dollars  just  to 
get  a  relatively  crude  dot-matrix  print- 
er, and  a  good  daisy  wheel  printer  cost 
over  $1,000. 

Today,  many  good  dot-matrix  and 
daisy  wheel  printers  are  available  for  a 
couple  of  hundred  dollars.  But  both 
technologies  have  their  particular 
strengths,  and  which  one  you  ultimate- 
ly choose  should  depend  on  the  appli- 
cations you  have  in  mind.  Daisy  wheel 
printers  necessarily  have  limited  graph- 
ics capabilities,  though  they  offer  letter- 
quality  type.  Inexpensive  dot-matrix 
printers  can  produce  decent  graphics, 
but  are  restricted  in  print  quality  by 
their  nine-pin  printheads,  which  gener- 


ally don't  produce  letter-quality  type  or 
crisp  graphics  (though  some  have  very 
respectaijle  near-letter-quality  modes). 
Dot-matrix  printers  that  use  a  24- 
pin  printhead  are  capable  of  far  superi- 
or graphics  and  text,  but  have  in  the 
past  been  relatively  expensive.  Toshiba 
has  introduced  the  P321,  also  called  the 
3-in-l  Printer,  a  24-pin  printhead  dot- 
matrix  printer  that  retails  for  $699.  The 
nickname  3-in-l  refers  to  the  printer's 
combination  of  speed,  tetter  quality 
type,  and  graphics.  The  quality  of  its 
output  approaches  that  of  laser  printers 
which  cost  at  least  three  times  as  much. 

More  Typeset 
Than  Typewritten 

Three  different  typefaces  are  built  into 
the  printer:  Courier,  Elite,  and  draft- 
quality.  It  can  also  hold  two  more  type- 
faces in  a  cartridge  and  download  one 
more  from  the  computer,  so  its  output  is 
very  flexible. 

Draft  mode  is  quite  readable  and 


extremely  fast.  The  manufacturer 
claims  216  characters  per  second  at  12 
characters  per  inch  and  180  cps  at  10  cpi 
in  this  mode;  letter  quality  runs  at  72 
cps.  For  listing  computer  programs  or 
making  quick  dumps  of  a  large  amount 
of  data,  this  printer  performs  extremely 
well.  The  Toshiba  P321  can  also  pro- 
duce proportionally  spaced  printing — 
allowing  more  space  for  wide  letters 
like  w  than  for  narrow  ones  like  /.  When 
this  feature  is  used,  the  printed  output 
appears  even  and  smooth,  looking 
more  like  typeset-quality  print  than 
typewritten  text. 


This  illustrates  the  graphics  capabilities 
of  the  Toshiba  P521. 

; DRAW: CALL  FROM  BASIC.  3  PARM 
3 
INCLUDED:  a  OF  SHAPE, 
HPOSCPIXELS) ,  VP05(PiXELS) 

DRAW  LDA  B2  ;ORG0 
STA  NUMBYTES 

LDA  B24  :0RG1 
STA  ROWCOUNT 

'jSR  ADDSHAPE  ;HHICH  SHAPE? 
8CS  ERROR 

JSR  GETHPOS  ;WHERE7 
BCS  ERROR 
JSR  GETVPOS 
BCS  ERROR 

LDA  THISHAPE  ;COPY  ADDR  TO  Z 

P 
STA  PATTERN 
LDA  THISHAPE+1 
STA  PATTERN+1 

DRAWLOOP  JSR  CALC  ; SCRN  ADDR 

Drfl/(  mode  on  the  P322. 


August  1966     COMPUTEI      57 


The  P321  can  plot  graphics  with  a 
resolution  of  180  by  180  dots  per  inch. 
Although  dots  can  be  positioned  with  a 
horizontal  resolution  of  1/360  inch, 
two  dots  can't  occupy  adjacent  posi- 
tions. Unfortunately,  it  can't  emulate 
Epson  graphics.  Epson  was  one  of  the 
first  companies  to  offer  an  inexpensive 
printer  that  could  produce  graphics, 
and  its  graphics  command  set  has  since 
become  an  unofficial  industry  standard. 
While  some  newer  software  can  pro- 
duce graphics  output  for  the  P321, 
nearly  every  program  that  prints  graph- 
ics can  drive  an  Epson.  If  this  feature 
had  been  included,  Toshiba  users 
would  have  enjoyed  compatibility  with 
a  wider  range  of  programs. 

The  Noise  Factor 

Laser  printers  are  promoted  as  being 
quiet  as  a  whisper.  Naturally,  the  P321 
isn't  nearly  that  quiet.  The  noise  level 
probably  won't  be  offensive.  But  if  you 
work  in  a  quiet  office,  or  if  you  compute 
at  home  and  keep  late  hours,  you  might 


find  the  noise  somewhat  disturbing.  It's 
not  the  loudest  dot-matrix  printer 
we've  heard,  but  it  might  be  loud 
enough  to  cause  problems  in  some 
situations. 

If  you've  previously  been  unsatis- 
fied with  near-letter-quality  dot-matrix 
printers,  the  Toshiba  P321  deserves 
consideration.  The  characters  it  pro- 
duces look  a  little  heavier  than  those 
made  by  a  typewriter  or  a  daisy  wheel 
printer,  but  certainly  better  than  the 
majority  of  dot-matrix  printers  we've 
seen.  And  when  the  Toshiba  uses  pro- 
portional spacing,  its  output  looks  bet- 
ter than  what  a  typewriter  could  produce. 

Toshiba  P321  Printer 
Toshiba  America,  }nc. 
Information  Systems  Division 
2441  Michelle  Drive 
Tustin,  CA  92680 
$699  (parallel  only) 
$749  (parallel  and  serial) 
IBM  Emulation  Kit  $49 
Downloadable  Type  Font  Kit  $99 


Murder  Or)  The  Mississippi 
For  Commodore  And  Apple 


Kathy  Yakal,  Assistant  Features  Editor 

Requirements:  Commodore  64  or  Apple 
Il-series  computer  with  at  least  64K  RAM. 
Joystick  required.  Disk  only. 


Murder  On  The  Mississippi,  designed  by 
Adam  Bellin  and  published  by  Activi- 
sion,  is  a  rich,  enjoyable  adventure 
game.  You're  plunged  into  a  convinc- 
ing, complex  world — a  riverboat  travel- 
ing down  the  Mississippi  sometime  in 
the  19th  century.  Though  there  is  a  lot 
to  explore  within  that  setting,  it's  not  so 
huge  and  meandering  that  you  get  lost 
every  time  you  make  a  move  or  have  to 
keep  retracing  your  steps.  A  cast  of 
charming,  eccentric  characters  makes 
you  feel  welcome  in  this  imaginary 
world,  and  you  cannot  get  killed  five 
nninutes  into  the  game.  In  these  and 
other  ways.  Murder  On  The  Mississippi 
is  free  of  the  disagreeable  aspects  which 
reduce  the  fun  of  some  other  adventure 
games. 

If  you've  ever  played  a  poorly  de- 
signed adventure  game,  the  experience 
may  have  been  frustrating  enough  to 
put  you  off  the  whole  genre  entirely.  It 
seems  that  there  are  three  areas  in 
which  many  text-only  or  text-and- 
graphics  adventures  can  miss  the  mark. 
First,  some  of  them  create  a  rather  small 
world,  or  at  least  make  it  appear  that 
way.  As  hard  as  you  try,  you  can't  get 
more  than  about  ten  minutes  into  the 


game  without  having  to  give  up  be- 
cause you  keep  going  around  in  circles. 
Second,  some  games  have  the  nasty 
habit  of  allowing  you  to  get  into  situa- 
tions where  you  are  easily  killed,  forc- 
ing you  to  start  all  over  again.  Finally, 
even  if  a  game  is  playable,  it  may  not 
have  the  feel  of  a  real  world.  It's  ex- 
tremely difficult  to  create  an  environ- 
ment and  a  set  of  characters  with  which 
you  can  easily  and  believably  interact. 
And  thai  is  key  to  a  good  adventure 
game. 

Trouble  On  The 
Delta  Princess 

On  the  other  hand,  a  dedicated  hard- 
core player  of  more  traditional  adven- 
ture games  like  Infocom's  all-text  Zor^ 
series  may  not  find  Murder  On  The  Mis- 
sissippi mnch  of  a  challenge.  Some  peo- 
ple prefer  to  imagine  what  a  game's 
world  looks  like,  and  aren't  bothered  by 
the  hours  it  can  take  just  to  figure  out 
how  to  move  around  and  interact  with- 
out getting  killed.  But  for  those  who 
enjoy  solving  a  murder  mystery  with- 
out bumping  around  in  the  dark.  Mur- 
der On  The  Mississippi  provides  an 
entertaining,  interactive  environment 
in  which  to  do  just  that. 

As  the  player,  you  portray  Sir 
Charles  Foxworth,  a  famous  British 
sleuth  who  is  taking  a  three-day  cruise 


down  the  Mississippi  River  on  the  Delta 
Princess.  You  are  accompanied  by  your 
constant  companion.  Regis  Phelps. 
While  exploring  the  rooms  on  the  ship, 
you  come  across  a  dead  body  and  must 
enlist  the  help  of  passengers  and  crew 
members  to  find  out  who  is  the  murder- 
er. You  have  three  days  to  solve  the 
crime. 

The  game  is  entirely  joystick- 
controlled;  no  keyboard  commands  are 
necessary.  To  move  around  the  decks, 
to  climb  up  and  down  stairs,  and  to 
enter  rooms,  you  control  the  character 
by  moving  the  joystick  up,  down,  right, 
and  left.  It  may  take  a  few  tries  to 
maneuver  your  character  into  the  exact 
spot  that  will  make  the  door  open,  but 
it's  not  too  tough. 

The  cabins  themselves  are  not  very 
big,  so  movement  within  them  is  rather 
restricted.  If  you're  trying  to  get  Sir 
Charies  and  Regis  and  a  passenger  to 
leave  a  room  together,  you  sometimes 
get  something  of  a  Three  Stooges  ef- 
fect— you  keep  bumping  into  each  oth- 
er as  well  as  furniture  and  doors.  But 
this  tends  to  be  amusing  rather  than 
irritating. 

A  Unique  Interface 

Adam  Bellin  has  designed  a  unique  user 
interface  to  allow  interaction  with  the 
passengers.  After  you've  entered  a 
room,  the  character  who  resides  there 
introduces  himself  or  herself  in  re- 
sponse to  your  greeting.  Pushing  the 
joystick  button  will  give  you  a  menu: 
You  can  Walk  around.  Inspect,  Examine 
evidence.  Talk  to  {passenger's  name),  or 
return  to  the  main  menu.  A  small  hand 
icon  on  the  right  side  of  the  screen 
points  to  the  selection  highlighted,  and 
pressing  the  joystick  button  activates 
that  command. 

If  you  choose  to  talk  to  the  passen- 
ger, you're  given  another  menu:  Tell  me 
about.  What  do  you  know  about  this  evi- 
dence?. Please  follow  me,  Share  notes 
with.  Accuse,  or  Previous  menu.  Infor- 
mation gathering  is  essential  to  solving 
the  crime,  so  each  passenger  should  be 
questioned,  even  if  it  leads  nowhere. 
You  can  ask  passengers  to  talk  about 
themselves  and  about  the  victim. 

After  receiving  information.  Regis 
will  ask  if  you'd  like  the  notebook  to 
take  notes.  If  you  think  the  information 
is  important,  you  can  choose  to  save 
certain  key  words  from  the  passenger's 
speech.  You're  only  allowed  one  line 
from  each  speech  (generally  5-10 
words),  so  choose  carefully.  Quite 
often,  that's  not  enough,  so  you  may 
want  to  take  supplementary  notes  on 
paper.  That's  a  good  idea  in  the  begin- 
ning, anyway,  as  it  will  help  you  keep 
track  of  who's  staying  in  which  room. 

As  you  select  highlighted  words  to 
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be  added  to  the  notebook,  an  onscreen 
hand  writes  out  the  words  in  Sir 
Charles's  handwriting.  That's  a  nice 
touch,  the  kind  of  thing  that  surprises 
and  delights  a  seasoned  computer  game 
player  and  makes  computer  games  ap- 
pealing to  new  users.  Murder  On  The 
Mississippi  contains  many  such 
thoughtful  elements.  Though  the  char- 
acters don't  require  a  lot  of  depth  in  a 
game  like  this  to  make  the  game  engag- 
ing, each  is  carefully  drawn  through  the 
use  of  background,  dialogue,  and  even 
accents.  And  Regis  is  an  endearing  fel- 
low from  the  start — he's  always  follow- 
ing right  on  the  heels  of  Foxworth,  who 
appears  to  stand  about  two  feet  taller 
than  his  devoted  sidekick. 

Four  Endings 

In  your  early  exploration  of  the  ship, 
you'll  discover  that  several  of  the  rooms 
are  locked.  Finding  out  how  to  enter 
them  merely  takes  some  common 
sense,  as  does  deciding  what  kind  of 
evidence  to  pick  up  and  keep  for  later 
examination.  Getting  to  the  point 
where  you  can  actually  start  to  draw 
some  conclusions  about  the  case  will 
take  some  time  and  thought. 

If  you  don't  solve  the  mystery  in 
one  sitting  (and  you  probably  won't), 
you  can  save  the  game  and  later  pick  up 
where  you  left  off.  And  there  are  four 
possible  endings,  so  once  you've  solved 
the  game,  you  can  start  over  again  and 
work  your  way  through  a  new  set  of 
clues. 

Murder  On  The  Mississippi 
Aciivmon,  Inc. 
2350  Bayshore  Frontage  Road 
Mountain  View,  CA  94043 
$54.95  (Commodore) 
$39.95  (Apple) 


Only  NRI  f  caches  you  to 
service  and  repair  all 
computers  as  you  build  your 
own  16-bit  IBM-compatible 
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ward. The  Department  of 
Labor  estimates  that  com- 
puter seri'ice  jobs  will  actually 
double  in  the  next  ten  years — 
a  faster  growlh  than  any  other 
occupation. 
Total  System  Training 

As  an  NRI  student,  you'll  get 
total  handson  training  es  you 
actually  build  your  own 
Sanyo  MBC-550  series 
computer  from  the 
keytjoard  up.  Only  a 
person  who  knows  oil 
the  underlying  fun- 
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You  learn  at  your  own  convenience, 
in  your  own  home,  at  your  own  comfort- 
able pace.  Without  classroom  pressures, 
without  rigid  night-school  schedules,  without 
wasted  time.  Your  own  personal  NRI  instructor 
and  NRI's  complete  tectinical  staff  will  answer 
your  questions,  give  you  guidance  and  special 
help  whenever  you  may  need  it. 
The  Exciting  Sanyo  16'bit  IBM  com- 
patible Computer— Yours  To  Keep 

Critics  hail  the  new  Sanyo  as  the  "most  intrigu- 
ing" of  all  the  IBM-ft  compatible  computers.  It  uses 
the  same  8088  microprocessor  as  the  IBM-PC  and 
the  MS/DOS  operating  system.  So,  you'll  be  able  to 
choose  thousands  of  off-the-shelf  sofcvare  programs 
to  run  on  your  completed  Sanyo. 

.As  you  build  Ihe  Sanyo  from  the  keytxiard  up, 
you'll  perform  demonstrations  and  experiments  that 


NRI  19  tha  only 
l>Qme  itjd^ 
school  thai 
Iralna  you  aa 
you  aiaambla  a 
lopbiand 
compuLer.  You'll 
InBlall  and 
check  keyboard, 
power  aupply, 
disk  drtva  and 
monitor, 
lollowJnQ  step. 
by-slap 
{iiraetiona. 


will  give  you  a  total  mastery  of  computer  operations 
and  servicing  techniques.  You'll  do  programming 
in  B.ASIC  language.  You'll  prepare  interfaces  for 
peripherals  such  as  pnnters  and  joysticks.  Using 
utilitj'  programs,  you'll  check  out  808S  functioning. 
And  the  entire  system,  including  all  the  bundled 
software  and  extensive  data  manuals,  is  yours  to 
keep  as  part  of  your  training. 
lOO'Paga  Free  Catalog  Tells  More 

Send  the  coupon  today  for  NRI's  big  100-page 
color  catalog,  which  gives  you  all  the  facts  about  NRI 
training  in  Microcomputers.  Robotics,  Data  Com- 
munications, ■I^'A'ideo/Audio  SeA'icing,  and  other 
growing  high-tech  career  fields.  If  the  coupon  is 
missing  write  to  NRI  at  3939  Wisconsin  Ave.,  NW. 
Washington,  DC  20016. 


IBM  Is  a  Registered  Trademark  of  International  Business  Jdacfiines  Corporation. 
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Three  Fantasy  Games 

For  Commodore  And  Apple 


James  V.  Trunzo 

Requirements:  Commodore  64  or  128  (in 
64  mode),  or  an  Apple  11-series  computer 
with  at  least  64K  RAM.  Disk  only. 


The  old  axiom  that  good  things  come  in 
threes  certainly  applies  to  a  trio  of  new 
entertainment  programs  from  Strategic 
Simulations,  Inc.  The  wizards  at  SSI 
have  conjured  up  three  new  fantasy 
titles  that  are  sure  to  please  all  the 
would-be  warriors  who  sit  by  their 
computers,  anxious  to  explore  another 
dungeon,  slay  another  dragon,  or  ban- 
ish another  demon.  And  while  on  the 
surface  it  might  appear  to  be  unsound 
business  strategy  for  a  company  to  re- 
lease three  new  monster  and  magic  pro- 
grams simultaneously,  SSI  succeeds 
because  each  game  is  unique  in  its  ap- 
proach and  play.  The  three  games, 
Rittgs  ofZilfin,  Phantasie  11,  and  Wizard's 
Crown,  will  provide  fantasy  lovers  with 
enough  challenges  to  last  the  entire 
summer. 

The  first  game.  Rings  of  Zilfin,  dif- 
fers from  other  games  of  its  kind  by 
offering  a  nearly  perfect  hybrid  of  ar- 
cade action,  role  playing,  and  anima- 
tion. The  player  controls  a  single 
character  who  has  a  variety  of  combat 
skills  as  well  as  latent  magical  ability. 
This  ability  must  be  developed  during 
the  course  of  the  adventure  in  order  to 
survive  and  complete  your  quest:  You 
must  reclaim  the  Rings  of  Zilfin  and  the 
fabulous  Treasure  of  Fulgarsh. 

Pay  Atlention  To  The  Plants 

The  entire  game  is  animated.  Your  key- 
board-controlled character  marches 
step  by  step  across  a  huge  mapped  area. 
When  he  enters  towns,  dungeons,  and 
so  on,  the  program  uses  windowing  to 
display  the  interiors  and  the  options 
permitted.  There's  arcade-style  combat 
as  well. 

But  your  character  is  not  the  typical 
warrior-hero.  Rnigs  of  Zilfin  requires  a 
thorough  understanding  of  strategy, 
economics,  and  diplomacy.  You  need  to 
pay  special  attention  to  mushrooms 
and  plants  because  these  items  can  of- 
fer important  assistance.  And,  in  addi- 
tion to  monsters,  your  persona  will 
encounter  elves,  dwarfs,  kings,  beggars, 
witches,  and  wizards.  Some  are  helpful, 
others  deadly.  Reading  and  rereading 
the  well-written  manual  is  a  must;  it 
contains  necessary  information  as  well 
as  hidden  clues. 

This  is  a  rich  simulation.  The  realm 
of  Batiniq  contains  three  nations,  27 


towns,  two  dungeons  and  more;  there 
are  over  100  inhabitants  with  whom  to 
converse,  and  dozens  of  plants,  magical 
pools,  and  monsters  with  which  to  con- 
tend— and  all  phases  of  the  game  are 
animated.  The  game  has  a  flavor  all  its 
own.  If  you  are  a  fantasy  buff  and 
you're  looking  for  something  a  little 
different,  Rings  of  Zilfin  might  be  the 
game  for  you. 

If  you  would  enjoy  something  a 
little  more  traditional  (and  if  you  are 
one  of  the  many  who  became  addicted 
to  the  award-winning  Phantasie  game), 
you'll  certainly  want  to  get  your  hands 
on  Phantasie  11.  The  sequel  does  not 
require  you  to  have  played  Phantasie, 
but  if  you  have  conquered  the  first 
Phantasie  game,  you  can  transfer  your 
battie-trained  characters  to  the  new 
adventure. 

Phantasie  11  has  all  the  same  fea- 
tures of  its  predecessor.  Assembling  a 
party  of  up  to  six  characters,  you  must 
explore  a  vast  wilderness,  dungeons. 
Astral  Planes  and — new  this  time 
around — two  levels  of  the  Nether- 
world. Your  group,  made  up  of  any 
mixture  of  fantasy  types,  must  battle 
over  80  different  monsters,  gather  trea- 
sure and  magical  artifacts,  and  improve 
its  abilities  as  it  attempts  to  defeat,  once 
again,  the  arch-sorceror  Nikademus. 

The  Hidden  Undead 

Phantasie  //employs  full  screen  graph- 
ics, animated  combat,  maze-like  dun- 
geons (which  are  mapped  by  the 
computer,  incidentally),  and  a  wide  va- 
riety of  terrains. 

If  you've  played  the  original  Phan- 
tasie, you  can  look  forward  to  new  fea- 
tures like  molten  lava,  which  is 
extremely  dangerous;  mist,  which 
shrouds  areas  and  hides  such  enemies 
as  the  undead  and  swarms  of  insects; 
and  dark  voids,  which  hold  unknown 
horrors  that  must  be  faced  by  your 
group. 

Also,  a  new  wrinkle  has  been 
added  to  the  combat  phase  of  Phantasie 
//.  Characters  can  now  choose  to  toss 
rocks  at  enemies  in  any  rank,  with  accu- 
racy and  damage  determined  by  the 
appropriate  skill  level  of  the  character. 

A  Most  Unusual  Game 

The  third  game.  Wizard's  Crown,  is  the 
most  difficult  of  the  three  and  probably 
the  most  unusual  fantasy  game  to  hit 
the  market  in  some  time.  Requiring  50 
to  100  hours  of  playing  time.  Wizard's 
Crown  comes  very  close  in  flavor  to  the 


actual  Dungeons  and  Dragons  role-playing 
game  which  started  the  fantasy  craze. 
One  reason  for  this  is  that  each  member 
of  the  party  of  adventurers  can  be  con- 
trolled separately. 

Also,  the  combat  can  be  tactical  in 
nature.  Each  character  can  select  from 
10  to  20  combat  options,  more  than  one 
in  a  given  turn  in  most  cases.  For  ex- 
ample, a  warrior  could  improve  his  ac- 
curacy by  aiming  at  an  enemy  prior  to 
attacking.  Characters  can  dodge  and 
zigzag,  attack  defensively,  stand  on 
guard,  load  a  bow  or  crossbow,  move  in 
any  direction,  or  ready  a  new  weap- 
on— to  name  only  a  few  of  the  options. 

This  control  over  individual  move- 
ment allows  the  players  to  form  a  wide 
variety  of  defensive  formations  when  in 
combat  and  also  to  take  advantage  of 
the  battleground  terrain.  Because  of  the 
large  number  of  combat  variables  that 
come  into  play — rear  and  flank  attacks, 
for  example — the  combat  is  far  closer  to 
a  typical  war  game  than  is  usual  in 
fantasy  games. 

Combat  fought  in  the  above  man- 
ner can  take  anywhere  from  10  to  20 
minutes  to  complete,  and  all  combat 
maneuvers  are  animated  by  highly  de- 
tailed character  icons.  But  if  you're  in  a 
hurry.  Wizard's  Crown  offers  a  quick 
combat  option,  too. 

Especially  Lifelike 

Characters  in  Wizard's  Crown  have 
many  more  characteristics  and  skills 
than  are  usual  in  a  game  of  this  type. 
Combat  awareness,  ability  to  track,  skill 
at  adminstering  first  aid,  knowing  how 
to  read  ancient  writings,  and  ability  to 
use  alchemy  are  some  of  the  more  eso- 
teric ratings  given  characters  in  Wizard's 
Crown.  These  are  in  addition  to  the 
typical  skills  of  a  thief,  wizard,  or  war- 
rior. The  various  combination  of  skills 
add  greatly  to  the  personality  and  indi- 
viduality of  the  characters,  making 
them  seem  especially  lifelike. 

Your  quest,  to  recover  the  coveted 
Wizard's  Crown,  takes  your  group  of 
adventurers  through  streets,  buildings, 
dense  wilderness,  and,  of  course,  dun- 
geons. During  the  course  of  your  ad- 
venture, you  will  encounter  dozens  of 
monsters,  find  merchants  with  whom 
you  can  trade  or  sell  your  loot,  bribe 
innkeepers  for  rumors  and  clues  that 
will  help  you  complete  your  quest,  and 
acquire  an  almost  limitiess  variety  of 
magical  items  like  lightning  swords  and 
rings  of  invisibility. 

Wizard's  Crown  also  includes  five 
levels  of  difficulty,  two  kinds  of  com- 
bat, and  works  with  one  or  two  disk 
drives.  Add  this  to  all  the  other  options, 
plus  the  excellent  animation  and  graph- 
ics, and  you  have  a  game  that  will  excite 
and  challenge  even  the  most  seasoned 


60     COMPUTEI      August  1986 


OM 


Authorized  Liquidator 


PUBLIC  NOTICE 


We  are  an  authorized  liquidator  o(  consumer 
products  that  must  be  quickly  sold  al  drastic 
pn'ce  reductions  for  many  reasons,  such  as: 
DisconUnued  lines.  Last  year's  models. 
Distributor's  surplus.  Cancelled  orders.  Bank- 
ruptcy. Factory  overproducton.  Out-ot-season 
products.  Tailends  of  inventories. 
Whatever  the  reason  toe  the  Ffquidatlon  you  are 
assured  of  fine  quality  at  money-saving  low 
prices!  SuppJies  are  limited.  Order  now! 


COMMODORE  COMPATIBLE  HARDWARE 


Save 

On  A 

Factory 

New 

Discontinued 

Model 


FAMOUS  U.S.  BRAHD 


COMREX  "  by  EPSON 

13" COLOR 


Liquidation  of  a  discontinued 

model. 

Can  be  used  witli  your  VCR. 

Superior  color  picture  quality. 

Manual  controls  for  tint,  color, 

contrast  horizontal,  center  and 

vertical  hold. 

Power  indicator  light  video  and 

sound  input  terminals. 

270  line  resolution. 

40  character  (8  x  8)  x  24  line 

display. 

Size:  14"  H  x  13%"  Wx  ISV;"  D. 

Does  not  include  connection 

cable.  {Contact  local  stores.} 


MONITOR 

Compatible  with 

Commodore  64K^" 

and  Apple  11®  Series 

Umited  Factory  Warranty: 

2  Years  on  Parts  and  Labor; 

3  Years  on  Picture  Tube 

Mfr.Ust  Price  .^249.00 


*149 

item  H-1 382-7003-809 
Shipping,  handling:  S12.00 


Liquidation 
Price    .  .  . 


DISK  DRIVE 


1 


Are  you  still  wasting  time  using 
just  ONE  drive?  Buy  a  SECOND 
drive  to  make  quick  back-up 
copies. ..and  to  use  double-drive 
software  with  ease. 

•  Commodore  compatible  (C64, 
SX64). 

•  2K  RAfvl,  16K  ROIVl.  fvlaximum 
storage  of  170K  formatted  data, 
35  tracks. 

•  Uses  SYi"  floppy  diskettes. 

•  Serial  interface. 


These  are  factory 

reconditioned  units, 

warranted  by  the 

U.S.  manufacturer! 

Usfprice   .  .  .  ^269.00 


Liquidation 
Price  .  .  . 


*149 

Item  H-13B2-35S3-013 
Shipping,  handling:  SB.OO 


COMMODORE 
TRACTOR  FEED 

Liquidation  is  due  to  discontinued 
model.  Now  use  continuous  paper 
AND  single  sfieets  in  your  Commo- 
dore 303.  Quickly  snap  in  this  tractor 
feed  unit.  When  installed,  you  can 
still  use  your  friction  feed,  too! 

90-Day  Limited  Factory  Warranty. 

Mfr.Ust:*39.95 
Liquidation  Price . 

Item  H-1382-7004-2B6 
Shipping,  handling:  S4.0Q 


$19 


Famous  Brand  LETTER  QUALITY  PRINTER 

•  Commodore  compatible  (064,  8X64,  Plus/4, 
C15,  VIC20). 

•  Add  10  your  present  equipment  for  office 
quality  appearance  of  letters,  reports. 

•  Prints  18  cps.  Bi-directional  printing. 

•  Triumph-Adler  compatible  printwheef. 

•  Upper/lower  case  letters,  numerals,  symbols. 

•  Spacing:  10. 13, 15  cpi.  or  proportional  select- 
able. 48  lines  per  inch  maximum. 

•  13"  max.  paper  width  (11"  printable  width), 

OnginalUst:  ^395.00 

Uquidafa'on  Price _      _ 

item  H-1382-41 84-01 6  Shipping,  handling:  Si  1.50 


^188 


Factory  Reconditioned 
With  Factory  Warranty. 


C.O.M.B.  Oirecl  Marketing  Cofp.  Hem  H-I3a2 

14605  28t1i  Ave.  N./ Minneapolis,  MN  55441-3397 
Send  items  shown  at  righl.  (Minnesala  residents  adid  6% 
sales  tax.  Sorry,  no  C.O.D.  orders.) 
D  My  ctieck  or  money  order  is  enclosed.  [No  delays  in 
processing  orders  paid  by  check,  thanks  to  TeleCheck) 
Charge: D  VISA*  D  MaslerCarO-  D  American  Express' 

Acci.  No. E^p, L — 

PLEASE  PRINT  CLEARLY 


Address  ■ 
City 


Phone- 


Sign  Here 


SEND  ME  THE  ITEMS  I  HAVE  LISTED  BELOW 
Sales  outside  the  4B  conllguous  statfis  are  subject  lo 
special  condillons.  Please  caN  or  write  lo  Inquire, 


Item  No 


liem 


Credit  card  customers  can  ord&r  by  ptione, 

24  hours  a  day.    ^^^m  iT^yT^i  HHHHB 

7  days  a  week.         ^j^^  (Mcmwcnni)^  jjgg^j 

Toil-Free:  1-800-328-0609 

I  Your  Check  is  welcome! 

I  No  decays  in  ordefS  paid  by  check. 

Sales  outside  the  48  contiguous  slates  are  subject  lo 
special  conditions.  Please  call  or  write  to  rnqulre. 


COMB    Direct  Marketing  Corp. 


Authorized  Liquidator 

14605  2eth  Avenue  North 

Minnespoli*.  Minnesota  55441-3397 


veteran  of  fantasy  warfare. 

SSI  has  created  a  triad  of  adventure 
games  that  offer  something  for  every- 
one. Each  program  has  its  own  special 
challenges  and  each  requires  a  different 
strategy.  One  of  them  is  sure  to  suit 
your  taste;  vi^hich  one  is  up  to  you.  You 
can't  make  a  bad  choice,  though,  be- 
cause all  three  games  are  winners. 

Rings  of  Zilfin 
Phantasie  II 

Wizard's  Crown 
Strategic  Simulations,  Itic. 
883  Siierlin  Road 
Mountain  View,  CA  94043 
$39.95  each 


Brattaccus 

Charles  Brannon,  Program  Editor 

Requirements:  Atari  ST  with  color  monitor, 
Commodore  Amiga,  or  Apple  Macintosh. 


We've  come  a  long  way  from  the  days 
of  the  original  Adventure  game.  There 
are  many  variations  in  the  genre  of 
interactive  fiction:  text  only,  text  and 
graphics,  and  graphics  only.  The  text- 
only  adventure  games,  best  known  by 
Infocom's  Zork  series  and  other  interac- 
tive fiction  such  as  The  Hitchhiker's 
Guide  to  the  Galaxy,  depend  on  detailed 
prose  and  a  sophisticated  parser  which 
decodes  the  typed  commands  you  give 
to  your  invisible  alter  ego.  To  explore 
the  adventure  world,  you  type  com- 
mands like  GO  WEST  or  TAKE  ME  TO 
YOUR  LEADER.  The  game  responds 
by  changing  the  scene,  giving  you  a 
new  page  of  text  to  read,  or  responding 
with  a  message  like  CAN'T  GO  IN 
THAT  DIRECTION,  or  CAN'T  TAKE 
THE  'ME'.  The  latter  kind  of  message 
reveals  the  limitations  of  a  command 
parser.  The  parser  thinks  you  are  trying 
to  TAKE  (pick  up)  the  object  ME. 

This  kind  of  adventure  game  can 
sometimes  be  frustrating,  since  only  a 
limited  number  of  actions  make  sense 
in  any  one  scene.  You  are  basically 
solving  a  series  of  linked  or  nested  puz- 
zles. For  instance,  you  may  start  by 
trying  to  find  a  scroll  that  reveals  the 
location  of  a  magic  key,  which  in  turn 
opens  the  locked  door  that  leads  to  the 
treasure  you'll  need  to  bribe  a  gate- 
keeper. In  addition  to  a  bribe,  the  gate- 
keeper may  insist  that  you  solve  a 
knotty  riddle  before  passing  into  the 
domain  of  a  wizard  who  holds  the  ulti- 
mate object  of  your  quest.  Until  you 
solve  the  gatekeeper's  riddle,  you  can't 
enter  that  portion  of  the  adventure 
world.. 

The  text-only  games  make  you  feel 


TANDY'  COMPUTERS 
SAVE  20-400/0 

Off  List  on  All  Tandy  and  RS  Equipment 


ThB  IBM'  PC  com- 
patlbl*   computer  thata 
ahead  of  the  crowdl 

Includes  DeskMate® 
software  for  word  pro- 
cessing, spreadstieet 
analysis,  telecommuni- 
cations and  more,  so  you 
can  use  your  computer 
right  away-  #25-1000 

'IBM/TM  Intemalioral 
Business  Machines  Corp 


Call  For 
Latest  Prices! 


TAXI 
IJAOVAI^TUC  » 
POUn  HOtmiLY 
^    ■PtOAU  ON 

4A  CQMPOWIHTI 


.  HM.M 


Tandy  Model  3000HD,  List  3599,  Out 
Tandy  Modal  600,  List  1599.  Our  ... 

Tandy  Model  3000.  LIsl  2599.  Our CALL 

Model  200  Portable.  List  999.  Our CALL 

Model  102  Porlflbte,  List  499,  Our CALL 

Non-RS  Expansion  Boafds  CALL 

Non-RS  Hard  Drives CALL 

rou  will  b*   pitiMd   arHh   our  courtwNJi,   ■t1lcl«nt  wrvlca 
ImowMg*  llwt  m  WILL  NOT  b«  und*rw>MI 


Call  lor  monttilr 
RS  fty*r  apacMt, 


Model  6000  Multi-user  with  XENIX.Iet  4499.  our  CALL 
Tandy  1200HD.  (XT  compatible),  Lsl  1999.  Our  CALL 

Lotus  1-2-3,  Lisi  495,  Our ...  CALL 

Wordstar  Prolessional.  List  395.  Our CALL 

DMP  130  Printer.  List  350,  Our CALL 

EPSON  Printers CALL 

All  Tandy  and  RS  monitors,  peripherals , .  CALL 

and  with   Ih* 


FOR  COLORADO 
RESIDENTS  AND 
INFORMATIOM 
CALL  303-249-9126, 


CALL  TOLL  FREE  FOR  ORDERS 

1-800-44SHACK 


VfSA 


fREAT 


Western  Electronics  IQ9I 


228  E.  MAIN,  MONTROSE,  COLORADO  81401        HOURS:  Mon.  -  Fri.  9  a.m.  -  5  p.m. 


COMPUTEI 
Subscriber  Services 

Please  help  us  serve  you  better.  If  you 
need  to  contact  us  for  any  of  ffie 
reasons  listed  below,  write  to  us  of: 

COMPUTEI  Magazine 

P.O.  Box  10954 

Des  Moines,  lA  50340 

or  call  thie  Toll  Free  number  listed  below. 

Change  Of  Addrvts.  Please  allow  us 
6-8  weeks  to  effect  the  change;  send 
your  current  mailing  label  along  with 
your  new  address. 

Renewal.  Should  you  wish  to  renew  your 
COMPUTEI  subsciiption  before  we 
remind  you  to,  send  your  current  mailing 
label  with  payment  or  charge  numbef 
or  call  the  Toll  Free  number  listed  below. 

New  Subscription.  A  one  year  (12 
month)  US  subscription  to  COMPUTEI  is 
$24,00  (2  years,  $45. 00;  3  years.  S65.00. 
For  subscription  rates  outside  the  US, 
see  staff  page).  Send  us  your  name 
and  address  or  call  the  Toll  Free  number 
listed  below, 

Delivary  Problsmt.  If  you  receive  dupli- 
cate issues  of  COMPUTEI,  if  you  experi- 
ence late  delivery  or  if  you  have  prob- 
lems with  your  subscription,  please  call 
the  Toil  Free  number  listed  below. 

COMPUTE! 
1-800-247-5470 

rnIA  1-800-532-1272 


62     COMPUTE)     August  1986 


LEARN 


MASTER  COMPUTERS 
IN  YOUR  OWN  HOME 

k  you  c^n  write  [}[0<]rAiii:>  dnd  Q 
mmpilH  10 1)0  US!  iKltat  you  maul  Get  tue 
most  out  dI  any  computef,  and  avorf  having 
to  pay  me  high  puce  ol  pre-packaged 


LEARN  AT  YOUR  OWN  PACE 
IN  YOUR  SPARE  TIME 

Our  ,ndependerl  study  program  allows  ywj 
to  team  alxjut  computefs.  ofrttations.  appli- 
cations and  progianming  in  youi  Biisre  time 
ai  home  to  retructors  ptovide  you  with 
one-on-one  counting 


LEARN  EVEN  BEFORE  YOU  DECIDE  ON  A  COMPUl^R 

Evefyttting  is  explained  in  sitnple  language.  You  will  enjoy  learning  to 
use  a  i;ompu1ef-EWN  F  YOU  DONT  OWNONE  Learn  1o  program  (n 
any  petsonal  computer;  IBM,  APHi,  COMMOOORE.  TBS.  and  mote, 

BE  YOUR  OWN  COMPUTCH  EXPERT 
niigrannilng  is  On  best  way  In  liam  In  use  tnmjiiiters.  and  vt  can 
slnw  ytiu  the  best-anil  most  econaitiical-wa)  to  leant  proframminti! 
Send  today  'or  your  free  informatton  package-  No  obl*gahon  No 
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you're  reading  a  complex  novel  in 
which  you  are  the  main  character.  You 
help  "write"  the  story  by  making  deci- 
sions at  various  branching  points, 
However,  there  isn't  enough  room  on 
the  screen  or  in  computer  memory  for 
both  elaborate  text  and  detailed  color 
illustrations. 

Adventure  games  that  use  both 
text  and  graphics  rely  on  full-screen 
pictures  to  tell  much  of  the  story.  While 
text-only  games  like  Zork  must  describe 
a  room,  a  graphics  adventure  like  Sierra 
On-Line's  King's  Quest  shows  you  the 
room  itself,  including  whatever  objects 
it  contains.  You  still  use  keyboard  com- 
mands to  control  the  action,  but  the 
pictorial  approach  is  one  step  closer  to  a 
real-life  simulation. 

Onscreen  Alter  Ego 

Bratfaccus  is  part  of  a  new  trend  in 
adventure  games  in  which  you  control 
a  realistic  image  of  a  human  or  some 
other  character.  Instead  of  typing  GO 
WEST,  you  move  a  mouse  or  a  joystick, 
making  your  onscreen  character  walk 
around,  open  and  close  doors,  pick  up 
and  put  down  objects,  and  even  fight 
when  necessary.  In  Brattaccus,  the  ac- 
tion takes  place  on  a  high-resolution 
stage  of  platforms,  elevators,  cantinas, 
police  headquarters,  and  the  criminal 
underworld.  Brattaccus  provides  much 
of  the  interaction  of  text-only  adven- 
ture games,  but  gives  you  direct,  real- 
time control. 

It  takes  some  time  to  learn  to  con- 
trol your  character,  a  genetic  engineer 
named  Kyne.  In  addition  to  four  basic 
directions,  you  can  modify  these  four 
movements  to  get  many  more.  In  the 
Atari  ST  and  Amiga  versions,  for  ex- 
ample, you  can  push  the  mouse  to  the 
left,  or  push  to  the  left  with  the  right 
mouse  button  down,  or  even  with  both 
buttons  pressed.  Usually,  your  charac- 
ter behaves  in  a  predictable  fashion,  but 
it  can  be  frustrating  to  see  him  run  and 
crash  into  a  wall  when  you  were  merely 
trying  to  rotate  to  face  a  door. 

In  the  game,  Kyne  has  developed  a 
new  genetic  technique  for  creating  su- 
perhuman beings.  The  government, 
however,  won't  allow  such  a  powerful, 
destabilizing  technology  to  run  ram- 
pant (at  least,  unless  it  controls  the 
technology,  with  a  race  of  supersoldiers 
foremost  in  mind).  As  Kyne,  you  have 
been  falsely  charged  with  selling  your 
secrets  to  the  underworld  and  are  on 
the  run,  seeking  out  the  seedy  mining 
asteriod  Brattaccus,  where  you  believe 
you  can  find  evidence  to  clear  your 
name.  The  criminal  underworld  of  Brat- 
taccus is  not  unaware  of  the  potential  of 
your  discoveries,  so  they  too  are  hunt- 
ing you.  Fortunately,  you  are  traveling 
under  an  alias,  but  there  is  a  bartender 


who  can  blow  your  cover. 

This  would  make  for  a  great  sci- 
ence-fiction film,  and  you  become  the 
star  of  the  show.  You  walk  Kyne's  char- 
acter around  the  maze  of  the  asteroid's 
structure,  wandering  in  and  out  of  bars, 
floating  up  and  down  in  elevators, 
moving  from  room  to  room,  sometimes 
talking  or  fighting  with  other  charac- 
ters. Some  characters  let  you  know  they 
are  going  to  the  bar  for  a  drink,  a  cue  for 
you  to  follow  them  for  a  private  talk. 
These  semi-autonomous  characters 
roam  throughout  Brattaccus  in  rather 
aimless  fashion.  There  are  several  class- 
es of  characters,  from  planetoid  person- 
nel and  police  to  the  henchmen  of  the 
criminal  mastermind  Kol  Worpt. 

Once  in  the  bar,  the  characters  ask 
if  you'd  like  any  information,  usually  in 
exchange  for  money  or  goods  which  are 
littered  about  the  planetoid,  ready  to  be 
plucked  up  by  you  or  others.  You  re- 
spond to  a  character's  prompt  by  choos- 
ing one  of  several  responses  that  appear 
in  a  thought  bubble  above  Kyne's  head. 
Your  choice  affects  the  future  of  the 
game. 

Realistic  Swordplay 

At  times,  you  need  to  draw  your  sword 
to  defend  yourself  against  attackers. 
You  can  duck,  parry,  and  lunge  with 
your  sword,  but  don't  walk  around 
with  it  drawn,  since  many  characters 
take  such  behavior  as  a  provocation. 
Characters  whom  you  kill  do  not  mere- 
ly disappear,  but  instead  lie  on  the 
ground  for  the  rest  of  the  game  as  a 
gruesome  reminder.  The  game's  graph- 
ics are  realistic,  and  some  players  may 
object  to  this  violent  aspect. 

Since  many  characters  in  Brattac- 
cus— especially  the  police  and  hench- 
men— are  excellent  swordsmen,  you'll 
find  that  games  don't  last  long  if  you 
get  carried  away  with  swordplay. 
Swords,  incidentally,  are  the  only  per- 
missible weapons  on  Brattaccus,  since 
other  weapons  could  rupture  the  air 
bubble  that  keeps  everyone  alive  on 
this  desolate  asteroid. 

The  world  of  Brattaccus  is  complex 
and  difficult  to  map.  In  it  you'll  find 
security  cameras  that  scan  key  corri- 
dors; you  don't  want  to  be  caught  fight- 
ing on  camera.  On/off  switches  let  you 
control  the  operation  of  elevators,  video 
screens,  and  more,  but  using  them  is  a 
crime.  Some  rooms  contain  tannoys 
(loudspeakers)  that  periodically  an- 
nounce special  police  bulletins.  Video 
screens  display  special  news  alerts. 
There  are  times  where  you'll  be  arrest- 
ed and  dragged  off  to  jail,  or  captured 
by  thugs  and  hauled  away  to  an  audi- 
ence with  the  evil  Kol  Worpt.  You  must 
balance  chit-chat,  bribery,  and  mea- 
sured   doses    of    swordplay    to    keep 


things  under  control. 

I  don't  know  if  Brattaccus  is  solv- 
able. Although  I've  played  it  for  weeks, 
it's  still  very  hard  to  grasp  all  the  ele- 
ments needed  to  solve  the  puzzle  and 
find  the  evidence.  In  this  manner,  Brat- 
taccus is  no  different  from  other  adven- 
ture games,  which  may  take  months  to 
complete.  For  many  people,  this  indi- 
cates good  value,  since  the  game  still 
poses  an  interesting  challenge  even 
after  considerable  use. 

Unrealized  Potential 

The  only  negative  factors  arise  not  from 
the  game  concept,  but  from  its  imple- 
mentation. Brattaccus  was  first  de- 
signed on  the  Atari  520ST,  and  the 
program's  routines  for  moving  the  large 
objects  representing  characters  can  get 
bogged  down  when  there  are  many 
characters  on  the  screen  at  once.  When 
Brattaccus  was  translated  for  the  Amiga 
and  Macintosh,  apparently  it  was  not 
rewritten  to  take  advantage  of  these 
computers'  features. 

For  instance,  the  Amiga's  blitter 
chip,  which  could  significantly  speed 
up  the  animation,  does  not  seem  to  be 
utilized  to  its  potential.  The  game 
graphics  are  absolutely  identical  on 
both  machines.  And  curiously,  though 
the  Amiga  works  with  the  same  type  of 
joystick  as  the  ST,  joystick  control  is 
absent  from  the  Amiga  version.  Also, 
the  Amiga  version  makes  no  use  of  the 
Amiga's  integral  speech  synthesis. 

The  Macintosh  version's  graphics 
are  somewhat  disappointing,  too.  The 
designers  converted  the  ST  color  graph- 
ics without  taking  advantage  of  the 
greater  vertical  resolution  on  the  Mac. 
As  a  result,  the  Macintosh  version  has 
only  200  lines  of  vertical  resolution  and 
looks  squashed  compared  to  the  original. 

Nevertheless,  Brattaccus  shows  the 
possibilities  for  gameplay  on  powerful 
68000-based  computers  such  as  the  ST, 
Amiga,  and  Macintosh.  As  designers 
continue  to  learn  more  about  these  ma- 
chines, we  can  expect  new  waves  of 
entertainment  software  which  take  ad- 
vantage of  the  powerful  CPU,  large- 
capacity  disks,  digital  sound,  and 
elaborate  screen  graphics  that  make 
these  computers  so  attractive. 

Brattaccus 

Minista'pe,  Inc. 

3444  Dundee  Road 

Northbwok.  II  60062 

$49.95  _ 
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SPRITE  32 

For  Commodore  64 


This  sophisticated  utility  allows  the 
Commodore  64  to  display  as  many  as 
32  sprites  on  the  screen  at  the  same 
time.  (It  also  works  on  the  Commodore 
128  in  64  mode.)  The  "Sprite  BASIC" 
enhancement  program  adds  several 
new  sprite  commands  to  BASIC  2.0. 
For  machine  language  programmers, 
the  "Sprite  Kernal"  utility  offers  the 
same  capabilities  for  ML  program- 
ming. Demonstration  programs  show 
how  to  use  the  technique  in  both 
BASIC  and  machine  language.  A  disk 
drive  is  required. 


You  probably  know  that  the  Com- 
modore 64  is  designed  to  display  a 
maximum  of  eight  sprites  on  the 
screen  at  one  time.  That's  enough 
for  most  purposes,  but  there  are 
many  situations,  particularly  in 
game  programming,  where  extra 
sprites  would  be  useful.  The  pro- 
grams accompanying  this  article  let 
you  display  as  many  as  32  sprites 
on  the  screen  at  once.  Though  the 
programs  are  written  in  machine 
language,  you  can  use  them  with- 
out being  a  machine  language  expert. 

"Sprite  32"  is  the  first  program 
you'll  need;  it  handles  the  mechan- 
ics of  displaying  the  extra  sprites. 
The  second  utility,  a  BASIC  en- 
hancement called  "Sprite  BASIC," 
adds  nine  new  sprite  commands  to 
the  64's  BASIC  2.0.  The  third  ML 
program,  called  "Sprite  Kernal,"  of- 
fers a  convenient  way  for  machine 
language  programmers  to  access  all 
of  the  Sprite  32  functions. 

Getting  Started 

Begin  by  entering  Programs  1,  2, 
and  3.  Because  these  programs  are 
written  in  machine  language,  you 
must  enter  them  with  the  "MLX" 
machine  language  entry  program 
listed  elsewhere  in  this  issue.  Before 
you  type  in  the  programs,  read  the 
information  below  about  which  file- 
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names  to  use  when  saving  them.  If 
you  don't  intend  to  program  in  ma- 
chine language,  you  need  not  type 
in  Program  3;  however,  you  may 
want  to  enter  it  anyway  to  view  the 
machine  language  demonstration 
(see  below).  Here  are  the  addresses 
you  need  to  enter  each  program 
with  MLX; 
Program  1 

Starting  address:  COOO 
Ending  address:  C4C7 

Program  2 

Starting  address:  C600 
Ending  address:  C997 

Program  3 

Starting  address:  C600 
Ending  address:  C80F 

If  you  wish  to  use  the  demo 
programs  included  with  this  article, 
you  must  save  Programs  1,  2,  and  3 
with  the  exact  filenames  listed  here: 

Program  1:  SPRITE  32 
Program  2:  SPRITE  BASIC 
Program  3:  SPRITE  KERNAL 

After  you've  saved  Programs 
1-3,  you  may  want  to  enter  Pro- 
gram 4,  the  BASIC  demonstration. 
Before  entering  this  program,  how- 
ever, you  must  activate  Sprite 
BASIC.  Load  the  program  with  the 
command  LOAD"SPRITE  BASIC" 
,8,1.  When  the  load  is  finished,  en- 
ter NEW  to  reset  the  computer's 
memory  pointers,  then  type  SYS 
50688  and  press  RETURN  to  install 
Sprite  BASIC.  //  is  very  important 
that  you  install  Sprite  BASIC  before 
typing  in  Program  4.  If  you  omit  this 
step,  the  program  will  not  work 
correctly. 

After  Sprite  BASIC  is  installed, 
enter  Program  4.  Don't  worry  about 
the  unfamiliar  commands;  they'll 
be  explained  in  the  next  section. 
Save  a  copy  of  the  program,  then 
run  it.  After  loading  Sprite  32  and 
Sprite  BASIC,  the  program  displays 
32  sprites  on  the  screen,  LISTs  it- 
self, and  returns  to  ready  mode. 

Note  that  Sprite  32  works  com- 


pletely in  the  background:  The 
sprites  remain  stable  even  after  the 
READY  prompt  and  blinking  cursor 
reappear.  You  can  LIST  the  pro- 
gram, edit  it,  and  with  one  excep- 
tion (see  below)  use  BASIC  in  the 
normal  way. 

BASIC  Demo 

Let's  examine  some  Sprite  BASIC 
commands.  With  32  sprites  still  on 
the  screen,  type  this  statement  and 
press  RETURN: 
SPRITE  0 

All  of  the  sprites  disappear. 
Now  enter  the  command  SPRITE  1: 
All  of  the  sprites  instantly  reappear. 

The  SPRITE  command  turns 
the  Sprite  32  utility  on  and  off.  This 
command  is  important  because  you 
must  always  disable  Sprite  32  before 
using  the  disk  or  tape  drive.  If  you  try 
to  save  or  load  a  program  while 
Sprite  32  is  still  active,  you  may 
crash  the  system  (no  harm  is  done 
to  the  computer,  but  you  might  lose 
whatever  program  is  in  memory). 

Here  are  some  additional  com- 
mands to  try.  Type  in  each  of  the 
lines  listed  here,  pressing  RETURN 
at  the  end  of  each  line: 

FOR  J  =  0  TO  7:DISABLE  3,J:NEXT 

ENABLE  3,0 

F0RJ  =  1  TO  7:ENABLE  3,J:NEXT 

The  ENABLE  and  DISABLE 
commands  let  you  turn  individual 
sprites  on  and  off.  The  first  number 
after  the  command  indicates  the 
sprite's  group  number.  There  are 
four  sprite  groups,  numbered  0-3. 
Each  group  contains  eight  sprites, 
and  group  0  is  always  located  at  the 
top  of  the  screen.  Within  each 
group,  sprites  are  numbered  from 
0-7;  in  this  demo,  sprite  0  is  at  the 
leftmost  screen  position. 

The  second  parameter  in  the 
ENABLE  and  DISABLE  commands 
identifies  which  sprite  within  the 
group  you  wish  to  affect.  Thus, 
DISABLE  3,0  hirns  off  sprite  0  in 
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group  3  (the  bottom  group).  EN- 
ABLE 2,7  turns  on  the  rightmost 
sprite  in  group  2,  and  so  on. 

Horizontal  Zones 

Sprite  32  divides  the  screen  hori- 
zontally into  four  separate  zones, 
one  for  each  group  of  eight  sprites. 
When  all  32  sprites  are  on  the 
screen,  each  group  is  confined  to  its 
own  horizontal  zone.  For  example, 
you  cannot  move  a  group  3  sprite 
into  the  zone  for  group  2.  However, 
by  sacrificing  sprites  from  other 
zones,  you  can  allow  a  sprite  to 
move  freely  through  two  or  more 
zones.  The  basic  method  is  to  DIS- 
ABLE the  corresponding  sprite  in 
the  next  higher-numbered  zone. 

For  instance,  if  you  disable 
sprite  0  in  group  3,  then  sprite  0  in 
group  2  can  move  anywhere  within 
zones  2  and  3.  By  sacrificing  three 
corresponding  sprites,  you  can 
allow  a  sprite  from  group  0  to  go 
anywhere  on  the  screen.  To  illus- 
trate, enter  these  lines,  pressing  RE- 
TURN at  the  end  of  each  line: 

FOR  J  =  l  TO  3:DISABLE  J,0:NEXT 
FOR  J  =  60  TO  250;PLACE  0,0,30,J:NEXT 
FOR  J  =  250  TO  60  STEP  -liPLACE 
0,0,30,J:NEXT 

Sprite  0  from  group  0  moves  all 
the  way  down  through  zones  1,  2, 
and  3,  then  returns  to  its  original 
position.  While  this  method  re- 
duces the  total  number  of  sprites 
you  can  display,  it  does  permit  you 
to  have  some  sprites  that  aren't 
confined  to  particular  screen  areas. 

One  word  of  warning:  Do  not 
disable  any  of  the  sprites  in  group 
0,  or  you  may  get  unpredictable 
results. 

Sprite  BASIC  Commands 

Here  is  a  list  of  all  the  Sprite  BASIC 
commands: 

DISABLE  sprite  group,sprtte  num- 
ber Turn  off  a  sprite.  The  sprite 
group  parameter  can  range  from 
0-3  and  identifies  which  of  four 
groups  the  sprite  belongs  to.  The 
sprite  ttumber  can  range  from  0-7 
and  identifies  an  individual  sprite 
within  the  group  (see  above). 
ENABLE  sprite  group,sprite  num- 
ber Turn  on  the  sprite  specified 
by  sprite  group  and  sprite  number 
(see  above). 

KILL  Deactivate  Sprite  BASIC. 
After   you    perform   KILL,    Sprite 


BASIC  is  disabled  and  the  64's 
BASIC  works  exactly  as  usual.  This 
is  not  the  same  as  a  SPRITE  0  state- 
ment (see  below),  which  disables 
the  Sprite  32  utility  but  does  not 
affect  Sprite  BASIC. 

OFF  sprite  group,sprite  number 

Make  the  designated  sprite  invisi- 
ble. Use  the  PUTS  command  (see 
below)  to  make  a  sprite  visible 
again.  Note  the  difference  between 
OFF  and  DISABLE:  An  OFF  state- 
ment makes  the  sprite  disappear 
from  the  screen  but  has  no  effect  on 
the  ability  of  other  sprites  to  ven- 
ture into  that  sprite's  zone.  A  DIS- 
ABLE statement  allows  another 
sprite  to  move  through  the  disabled 
sprite's  territory  and  also  makes  the 
sprite  disappear. 

PLACE  sprite  group,sprite  num- 
ber,X  coord,Y  coord     Place   the 

designated  sprite  at  the  screen  coor- 
dinates indicated  by  X  coord  and  V 
coord.  The  horizontal  coordinate  X 
coord  can  be  any  value  from  0-512, 
but  only  coordinates  from  24-343 
are  visible  on  the  screen.  The  verti- 
cal coordinate  Y  coord  can  be  any 
value  from  0-255,  but  only  coordi- 
nates from  50-249  are  visible  on 
the  screen.  (No  special  tricks  are 
required  to  move  sprites  past  the 
"seam"  into  horizontal  positions 
greater  than  255;  Sprite  32  auto- 
matically handles  the  most  signifi- 
cant bit  for  horizontal  positioning.) 

PUTS  sprite  group,$prite  number 
The  opposite  of  OFF,  this  statement 
makes  a  sprite  visible. 

RASTL  boundary  number,new 
raster  The  RASTL  (RASTer  Line) 
statement  lets  you  change  the 
boundary  between  two  sprite 
zones;  since  the  zones  are  contigu- 
ous, this  also  changes  the  size  of 
those  zones.  The  first  parameter, 
boundary  number,  identifies  which 
zone  boundary  you  wish  to  change. 
There  are  three  boundaries,  num- 
bered 0-2,  which  separate  the  four 
sprite  zones.  Boundary  0  separates 
zones  0  and  1;  boundary  1  sepa- 
rates zones  1  and  2;  and  boundary  2 
separates  zones  2  and  3. 

The  second  parameter,  new 
raster,  specifies  the  raster  line 
where  the  specified  boundary 
should  be  located.  The  visible 
screen  contains  200  raster  lines, 
numbered  50-249,  with  line  50  at 
the  very  top  of  the  screen.  The  de- 


fault position  for  boundary  0  is  ras- 
ter line  99.  To  move  this  boundary 
20  lines  higher  on  the  screen  (to 
line  79),  use  the  statement  RASTL 
,0,79.  Now  the  lower  portion  of 
zone  0  ends  at  screen  line  79  and 
the  upper  portion  of  zone  1  begins 
at  line  80. 

SET  sprite  group,sprite  number, 
shape, color  SET  defines  the 
shape  and  color  of  the  individual 
sprite  specified  by  sprite  group  and 
sprite  number.  The  shape  parameter 
tells  the  64  where  to  find  the  shape 
data  for  the  sprite.  This  is  the  same 
value  you  would  POKE  into  one  of 
the  shape  pointer  locations  from 
2040-  2047  under  normal  circum- 
stances. The  color  value  can  range 
from  0-15  and  corresponds  to  the 
usual  64  color  numbers  (color  0  is 
black,  and  so  forth).  Your  user's 
manual  contains  more  information 
about  colors  and  sprite  shape 
pointers. 

SPRITE  toggle  Turn  Sprite  32  on 
or  off.  Because  Sprite  32  interferes 
with  disk  and  tape  operations  (in- 
cluding saving  and  loading  pro- 
grams), you  must  always  turn  it  off 
before  using  disk  or  tape.  Use 
SPRITE  0  to  deactivate  Sprite  32, 
and  SPRITE  1  to  activate  it.  This 
statement  does  not  affect  Sprite 
BASIC,  which  must  always  be  active 
in  order  to  use  a  program  that  con- 
tains Sprite  BASIC  commands.  For 
instance,  after  loading  Sprite  BASIC 
into  memory.  Program  4  activates  it 
with  SYS  50688  before  performing 
any  Sprite  BASIC  commands. 

Programming  Tips 

When  placing  sprites  on  the  screen, 
keep  in  mind  that  no  part  of  the 
sprite  can  cross  the  boundaries  of 
its  zone  unless  you  have  DISABLEd 
other  sprites  to  permit  multizone 
movement. 

For  example,  the  default  loca- 
tion for  zone  0  is  from  raster  lines 
0-99.  Since  a  sprite  can  be  as  many 
as  21  lines  high,  you  should  not 
attempt  to  PLACE  a  group  0  sprite 
using  a  vertical  coordinate  greater 
than  78  (99-21  =  78).  Similarly, 
zone  1  stretches  from  lines 
100-149,  so  a  zone  1  sprite  can 
move  between  lines  100-128 
(149-21  =  128).  If  you  try  to  posi- 
tion a  sprite  outside  its  permitted 
zone,  it  may  flicker  or  disappear 
completely.   Within   its   horizontal 
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zone,  a  sprite  can  have  any  hori- 
zontal location. 

There  are  certain  aspects  of 
sprite  behavior  which  Sprite  32 
doesn't  affect  at  all.  For  instance, 
sprite-to-sprite  display  priorities 
are  exactly  the  same  as  usual:  When 
two  or  nnore  sprites  overlap,  lower- 
numbered  sprites  always  appear  in 
front  of  higher-numbered  ones. 

You  may  change  the  sprite-to- 
background  priority  of  a  sprite  in 
the  usual  way,  but  the  change  af- 
fects every  sprite  of  the  same  num- 
ber. That  is,  if  you  change  the 
sprite/background  priority  for 
sprite  0,  it  is  changed  for  sprite  0  in 
every  sprite  group. 

The  same  is  true  of  horizontal 
or  vertical  expansion.  Expansion  af- 
fects every  like-numbered  sprite  on 
the  screen. 

Machine  Language  Demo 

For  machine  language  program- 
ming, BASIC  commands  are  not 
particularly  convenient,  Program  3, 
the  Sprite  Kernal,  provides  all  the 
features  of  Sprite  32  to  machine 
language  programmers.  Even  if  you 
don't  understand  machine  lan- 
guage, you  may  want  to  enter  and 
run  the  remaining  programs  to  see 
an  impressive  demonstration.  Pro- 
gram 5  illustrates  the  power  of  ma- 
chine language  by  moving  17 
sprites  on  the  screen  simultaneous- 
ly. This  program  must  be  entered 
with  MLX,  using  these  addresses: 

Starting  address;  6000 
Ending  address:  62B7 

If  you  have  been  using  Sprite 
32  or  Sprite  BASIC,  turn  the  com- 
puter off  and  on  before  you  load 
and  run  MLX.  Be  sure  to  save  Pro- 
gram 5  with  the  filename  ML 
DEMO. 

Next,  type  in  and  save  Pro- 
gram 6  (you  do  not  have  to  install 
Sprite  BASIC  before  typing  this 
program).  This  is  a  short  BASIC 
loader  that  installs  the  necessary 
ML  programs  in  memory,  then 
starts  ML  DEMO  with  the  state- 
ment SYS  24576. 

When  you  run  Program  6,  the 
screen  fills  immediately  with  17 
bouncing  sprites.  Note  that  several 
of  the  sprites  move  through  more 
than  one  sprite  zone;  one  of  them, 
the  light  blue  sprite,  is  able  to  move 
anywhere  on  the  screen.  As  ex- 
plained earlier,  it  is  necessary  to 


"Sprite  32"  allows  the  Commodore  6i  to 
display  as  many  as  32  sprites  on  the 
screen  simultaneously. 

sacrifice  a  certain  number  of  sprites 
to  achieve  this  effect. 

Press  RUN/STOP-RESTORE 
to  stop  the  program.  To  restart  it, 
enter  SYS  24576, 

The  Sprite  Kernal 

Like  Sprite  BASIC,  the  Sprite  Ker- 
nal also  requires  that  Sprite  32  be  in 
memory.  Here  are  the  starting  ad- 
dresses for  each  Sprite  Kernal  rou- 
tine: 


Routine 

JSR  address 

SPRITE 

$C61 2/50706 

PLACE 

$C615/50709 

SET 

$C6I  8/50712 

OFF 

$C61B/S0715 

PUTS 

$C61E/50718 

DISABLE 

$C621/50721 

ENABLE 

$C624/50724 

RASTL 

$C627/50727 

The  Sprite  Kernal  routines  per- 
form the  same  functions  as  their 
Sprite  BASIC  equivalents.  How- 
ever, a  different  procedure  is  used 
to  pass  each  routine  the  infor- 
mation it  needs.  The  basic  method 
is  to  store  the  parameters  in  memo- 
ry locations  beginning  at  50688 
($C600),  then  call  the  Sprite  Kernal 
routine  with  JSR.  For  an  explana- 
tion of  the  parameters  required  by 
each  routine,  see  "Sprite  BASIC 
Commands"  above. 

Since  the  SPRITE  routine  takes 
only  one  parameter  (1  or  0),  you 
need  to  supply  only  one  value 
before  calling  it.  For  example,  to 
perform  the  equivalent  of  the  Sprite 
BASIC  statement  SPRITE  1,  you 
would  execute  LDA  #1:STA  $C600: 
JSR  $C612.  To  do  the  equivalent  of 
SPRITE  0,  use  LDA  #0:STA  $C600: 
JSR  $C612.  All  of  the  remaining 
Sprite  Kernal  routines  require  two 
or  more  parameters.  Here  is  an  out- 
line of  how  to  call  them: 

PLACE  ($C615/50709)   Store  the 


sprite  group  vd\n&  in  $C600/50688 
and  the  sprite  number  value  in 
$C60 1/50689.  Locations  $C602- 
$C603/50690-50691  hold  the  low 
byte  and  high  byte  of  the  sprite's 
horizontal  (X)  position.  Store  the 
sprite's  vertical  (Y)  position  in  loca- 
tion $C604/50692. 

SET  ($0617/50712)  Store  the  sprite 
group  value  in  $C600/50688  and 
the  sprite  number  value  in  $C601/ 
50689.  Store  the  shape  pointer  val- 
ue in  $0602/50690  and  the  color 
value  in  $C603/50691. 
OFF  ($C61B/50715)  Only  two  val- 
ues are  required.  Store  the  sprite 
group  value  in  $0600/50688  and 
the  sprite  number  value  in  $C601/ 
50689. 

PUTS  ($C61E/50718)  The  converse 
of  OFF.  Store  the  sprite  group  value 
in  $0600/50688  and  the  sprite 
number  vahiQ  in  $C601/50689. 
DISABLE  ($C621/50721)  Only  two 
values  are  required.  Store  the  sprite 
group  value  in  $0600/50688  and 
the  sprite  number  valne  in  $C601/ 
50689, 

ENABLE  ($0624/50724)  The  con- 
verse of  DISABLE,  Store  the  sprite 
group  value  in  $C600/50688  and 
the  sprite  number  value  in  $0601/ 
50689. 

RASTL  ($0627/50727)  Store  the 
boundary  number  value  in  $0600/ 
50688  and  the  new  raster  value  in 
$0601/50689. 

Here  is  a  short  example  of  how 

to  use  Sprite  Kernal  routines.  This 
program  displays  sprite  4  in  group 
2.  You  will  need  a  machine  lan- 
guage assembler  to  create  the  object 
code  for  this  routine.  The  com- 
ments following  the  semicolons  are 
optional  and  need  not  be  included. 

LDA  #$01  ;tiim  on 

STA  SC600  ;Sprite  32 

JSR  SC612 

LDA  #$04  ;sprite  number 

STA  $C600 

LDA  #$02  ;sprite  group 

STA  $C601 

LDA  #$A0  ;low  and  high 

STA  $C602  ;byte9  of  the 

LDA  #$00  ;sprite's 

STA  $C603;X  coordinate 

LDA  #60 

STA  $C604  ;Y  coordinate 

JSR  $C615  ;PLACE 

RTS 

When  Sprite  32  is  active,  the 
64's  IRQ  vector  is  diverted  from  its 
normal  address  to  the  custom  rou- 
tines used  to  display  extra  sprites.  If 


bt     COMPUTEI      August  1986 


you  activate  another  interrupt 
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08 

A8    B4 

C1F8:C0 

F0 

18    AD 

26 

00 

80 

04 

4A 

0488 :8D 

2D 

D0 

AD 

83 

00 

80 

FE 

62 

0330:40 

14 

08 

40 

7A 

08 

AC 

99    B4 

C200:D0 

AD 

2F    00 

80 

05 

00 

AD 

IB 

0490:07 

AD 

9E 

00 

F0 

18 

AD 

60 

99 

0838:07 

A9 

FF 

38 

F9 

A13 

C7 

80   0B 

0208:37 

00 

80    29 

D0 

AD 

3F 

00 

lA 

0498:00 

8D 

0E 

00 

AO 

76 

00 

80 

03 

0840 :9F 

07 

BD 

0B 

00 

2D 

9F 

07    BD 

C210:8D 

FA 

07    AO 

8A 

C0 

F0 

18 

28 

C4A0:0F 

00 

AD 

7E 

00 

80 

2E 

00 

EC 

0848 :9D 

0B 

C0 

8A 

18 

69 

21 

AA    7F 

0218 :AD 

27 

00    80 

06 

00 

AD 

30 

2E 

C4A8:AD 

86 

00 

8D 

FF 

07 

40 

ai 

02 

0850 :AD 

9A 

07 

18 

0A 

0A 

OA 

6D    D3 

C220:C0 

8D 

07    D0 

AD 

38 

00 

8D 

B4 

C4B0:C4 

A9 

00 

3D 

12 

00 

AD 

00 

10 

0858:99 

07 

AS 

E0 

84 

B0 

IB 

B9    A2 

C228:2A 

D0 

AD    40 

00 

80 

FB 

07 

EB 

C4B8:DC 

29 

01 

F0 

03 

40 

31 

EA 

00 

C860:37 

C0 

00 

16 

BD 

0B 

00 

2D    2A 

C230:AD 

8B 

00    F0 

18 

AD 

28 

00 

IF 

C4O0:4C 

BO 

FE 

00 

00 

00 

00 

00 

7F 

C868:9F 

07 

9D 

0B 

00 

8A 

13 

69    E9 

August  1986     COMPUTEl      67 


C870:21 

AA 

98 

18 

69 

08 

A8 

40 

DA 

0740:00    C6    AA  AD   02    06 

9D 

IC 

34 

60A8:00 

C6 

C9 

08 

D0 

09 

18 

AD 

60 

0878:58 

C8 

AE 

9E 

C7 

AD 

9D 

C7 

Al 

C748:C0   AD    03    C6    9D    14 

00 

AD 

DC 

60B0:04 

06 

69 

32 

80 

04 

C6 

EE 

6E 

Ca80:9D 

0C 

C0 

60 

20 

BA 

AD 

20 

A8 

07  50:07    06    AE    08    06    AC 

09 

C6 

2D 

60B8:01 

06 

AD 

01 

C6 

09 

04 

00 

A7 

C8a8:F7 

E7 

A5 

14 

8D 

9A 

C7 

20 

80 

0758:60    80    07    C6    8E    08 

C6 

BC 

77 

60C0:AD 

4C 

E6 

60 

00 

01 

02 

04 

5A 

C890:F1 

B7 

8E 

99 

07 

20 

Fl 

B7 

CE 

0760:09    06    AC   00    C6    A9 

FF 

38 

D0 

6008:06 

00 

01 

03 

04 

07 

00 

02 

IB 

C898:aE 

9B 

C7 

20 

Fl 

B7 

BE 

9C 

7B 

C768:F9    0A    C6    8D    02    C6 

AC 

01 

AE 

6000:03 

04 

06 

08 

00 

00 

00 

00 

55 

CaA0:C7 

AD 

9A 

07 

18 

0A 

0A 

0A 

58 

0770:06    B9    9F   C0    2D    02 

C6 

99 

6A 

6008:00 

01 

01 

01 

01 

01 

02 

02 

IC 

C8A8:0A 

0A 

60 

9A 

C7 

60 

99 

C7 

08 

C778:9F    C0    AD   07    C6    AE 

08 

C6 

P5 

60E0:02 

02 

02 

08 

00 

00 

A2 

00 

29 

C8B0:AA 

AD 

9B 

C7 

9D 

10 

00 

AD 

7F 

0780 :AC    09    06    60    8D    07 

C6 

8E 

20 

60E8:BD 

D4 

60 

C9 

08 

F0 

10 

BD 

18 

C8B8:9C 

07 

9D 

14 

00 

60 

20 

8A 

01 

0788:08    06    SO    09    C6    AC 

00 

C6 

9F 

60F0:01 

C6 

BD 

C4 

60 

BD 

00 

C6 

E7 

CSC0:AD 

20 

F7 

B7 

A5 

14 

80 

9A 

DE 

0790  :B9    0A    C6    80    02    06 

AC 

01 

B6 

60F8:20 

21 

C6 

E8 

40 

E8 

60 

40 

80 

C8C8:C7 

20 

Fl 

B7 

BE 

99 

07 

AC 

17 

C798:C6    B9    9F    00    0D    02 

C6 

99 

91 

6100 :E2 

61 

32 

55 

78 

9B 

BE 

El 

B9 

C8D0:99 

C7 

A9 

FF 

33 

F9 

A0 

C7 

09 

C7A9:9F    C0    AD    07    C6    AE 

08 

C6 

IE 

6108:0A 

2D 

00 

00 

00 

9B 

00 

El 

6B 

C8D8:8D 

9B 

C7 

AC 

9A 

07 

B9 

9F 

E2 

C7AB:A0    09    06    60    8D    07 

06 

8E 

54 

6110:00 

2D 

00 

00 

78 

00 

00 

El 

C3 

C8E0:C0 

2D 

98 

07 

99 

9F 

C0 

60 

3B 

C7B0:0B    C6    BC    09    06    AD 

01 

C6 

CD 

6118:0A 

00 

00 

55 

00 

00 

00 

El 

17 

C8£8:20 

8A 

AD 

20 

F7 

B7 

A5 

14 

E2 

C7BB:18    0A    0A   0A    6D   00 

06 

A8 

5A 

6120:00 

2D 

00 

00 

00 

00 

00 

00 

2E 

CaF0:8D 

9A 

C7 

20 

Fl 

B7 

BE 

99 

10 

C7C0:A9    00    99    87    00    AD 

07 

C6 

62 

6128:01 

01 

00 

00 

00 

00 

00 

00 

AB 

C8F8:C7 

AO 

99 

C7 

B9 

A0 

C7 

80 

B6 

C7C8:AE    08    C6    AC    09    C6 

60 

80 

07 

6130:00 

01 

00 

00 

00 

00 

00 

00 

33 

C900:9B 

C7 

AC 

9A 

C7 

B9 

9F 

C0 

B7 

C7D0:07    C6    8E   08    C6    8C 

09 

C6 

29 

6138:01 

00 

00 

00 

00 

00 

00 

00 

7B 

C908:0D 

9B 

07 

99 

9F 

C0 

60 

20 

70 

C7D8:AD    01    06    18    0A   0A 

0A 

6D 

03 

6140:00 

01 

3C 

30 

30 

3C 

30 

3C 

16 

C910:8A 

AD 

20 

F7 

B7 

A5 

14 

A8 

FC 

C7E0:00    C6    A8    A9    01    99 

87 

ca 

10 

6148:30 

30 

00 

00 

00 

6E 

00 

6E 

60 

C918:88 

80 

9A 

07 

20 

PI 

B7 

8E 

A9 

C7EB:AD    07    C6    AE    08    C6 

AC 

09 

92 

6150:00 

6E 

00 

00 

A0 

00 

00 

A0 

54 

C920:99 

C7 

AD 

9A 

C7 

18 

0A 

0A 

8E 

C7F0:C6    60    3D    07    C6    8E 

08 

C6 

65 

6158:A0 

00 

00 

D2 

00 

00 

00 

02 

6B 

C9  28!aA 

6D 

99 

07 

A8 

A9 

00 

99 

51 

C7FB:aC    09    C6    AC    00    C6 

AD 

01 

20 

6160:00 

02 

E8 

B2 

80 

4F 

ES 

4F 

82 

C930:87 

C0 

60 

20 

8A 

AD 

20 

F7 

09 

0800  :C6     99    A3    00    AD    07 

06 

AE 

Al 

6168:30 

4F 

00 

00 

00 

EB 

00 

80 

63 

C9  38:87 

A4 

14 

88 

ac 

9A 

C7 

20 

5A 

0308:08    06    AC    09    C6    60 

00 

00 

2D 

6170:00 

B2 

00 

00 

E8 

00 

00 

B2 

D9 

C940:F1 

B7 

8E 

99 

C7 

AD 

9A 

C7 

18 

617a:E8 

00 

00 

EB 

00 

00 

00 

E8 

27 

€948:18 
C950:A9 

0A 
01 

0A 
99 

0A 
87 

60 
00 

99 

60 

07 
00 

A8 
20 

56 

4C 

Program  4:  Sprite  BASIC 

6180:00 
6ie8:2F 

EB 
2F 

2F 
00 

2F 
00 

2F 
00 

2F 
69 

2F 
00 

2F 
69 

lA 
BD 

C958:8A 

AD 

20 

F7 

B7 

A4 

14 

8C 

25 

Demo 

6190:00 

69 

00 

00 

9B 

00 

00 

9B 

26 

C960:56 

C9 

20 

Fl 

B7 

8A 

AC 

56 

4C 

For  instaictions  on  entering  tfiis  listing. 

please 

6198:9B 

00 

00 

CO 

00 

00 

00 

OD 

03 

C968:C9 

99 

A3 

00 

60 

20 

8A 

AD 

0E 

refer  to  "COfi/IPUTEI's  Guide  to  Typing 

In 

61A0:00 

CD 

01 

01 

00 

01 

00 

01 

0C 

C970!20 

F7 

B7 

AS 

14 

09 

00 

F0 

IC 

Programs"  in  this  issue  of  COMPUTEI. 

61A8:01 

00 

01 

01 

00 

01 

00 

01 

21 

C978:03 

4C 

00 

C0 

78 

A9 

31 

3D 

07 

61B0:01 

01 

00 

00 

01 

00 

00 

00 

3C 

C980:14 

03 

A9 

EA 

80 

15 

03 

A9 

33 

HC    10    IF    Z=2    THEN    40 

61B8:00 

00 

00 

00 

00 

00 

00 

00 

7B 

C988:FF 

SD 

0D 

DC 

A9 

80 

80 

lA 

73 

BB    20    IF    Z=0    THEN    Z=i: 

PRINT 

M 

6100:00 

01 

FF 

FF 

01 

FF 

01 

01 

CE 

C990:D0 

58 

A9 

00 

an 

15 

D0 

60 

9A 

fCLR) fWHT) (DOWN)DDADING 

61C8:FF 

FF 

00 

00 

00 

01 

00 

01 

90 

(SPACE} SPRITE    3  2 

":LOAD    " 

61D0:00 

01 

00 

00 

01 

00 

00 

FF 

DB 

Program  3:  Sprite  Kernal 

SPRITE    32", 8,1 
JP    30    IF    Z=l    THEN    Z=2- 

PRINT 

"L 

61D8:01 
61E0:00 

00 

FF 

00 
AJ3 

01 
00 

00 
84 

00 

FB 

00 
A2 

01 
00 

2D 
11 

Piease  refer  to  ttie  ' 

MLX 

'  orticle 

n  triis  Issue 

OADING    SPRITE    BASIC 

" :  LOA 

61Eai8E 

E4 

60 

8E 

E5 

60 

AE 

E4 

14 

before  entering 

the 

following  listing. 

D"SPRITE    BASIC", 

fi.l 

61F0:60 

8E 

00 

C6 

AE 

E5 

60 

BC 

4E 

SQ    40    SYS    50688:POKE    53281.6 

61Fa:01 

06 

BO 

02 

61 

80 

02 

C6 

Dl 

C600:00 

00 

00 

00 

00 

00 

00 

00 

8D 

QA    50    FOR   T=255*64    TO 

T+62:POK 

6200:BD 

22 

61 

8D 

03 

06 

BD 

42 

22 

C608:00 

00 

01 

02 

04 

08 

10 

20 

56 

E    T    255-NEXT 

6208:61 

80 

04 

06 

00 

03 

4C 

86 

7F 

C610:40 

80 

4C 

2A 

C6 

4C 

60 

C6 

F8 

LJ            X      f    Aj    '^  'J     m  LI   LmfJ'k    k 

XE    60    FOR   L=0   TO    2 jRASTL 

L, 

[L+ 

6210:62 

20 

15 

C6 

18 

BD 

42 

61 

BA 

C618:4C 

2A 

C7 

4C 

59 

07 

4C 

84 

IB 

1)*50+50:NEXT 
XK    70    SPRITE    1 
GS    80    FOR    ROW=0    TO    3  :E 

O    7 
DD    90    PLACE    RO,S,30+S* 

*ROW 
AX    100    IF    RO>0    THEN:Eb 
S 

6218:7D 

C2 

61 

9D 

42 

61 

BO 

42 

A7 

C620:C7 

40 

AC 

07 

40 

CF 

C7 

4C 

34 

6220:61 

DD 

82 

61 

00 

08 

A9 

01 

6E 

C628:F2 
C630:8C 

C7 
09 

8D 
C6 

07 
AD 

C6 
00 

8E 
C6 

08 
F0 

06 

03 

3A 
F9 

OR 

S=0    T 

6228:90 
6230:61 

C2 

D0 

61 
05 

4C 
A9 

38 
FF 

62 

90 

DD 
C2 

62 
61 

C6 
72 

C638:4C 
C640:03 

00 
A9 

C0 

EA 

78 
8D 

A9 
15 

31 
03 

BD 
A9 

14 

FF 

CC 

F7 

40 

60+50 

62  38 :BD 
6240 :BD 

A2 
02 

61 
61 

C9 
69 

01 
01 

D0 
9D 

14 
02 

18 
61 

DB 
0B 

0648:80 
C650:58 

00 
A9 

DO 
00 

A9 
8D 

80 
15 

8D 
D0 

lA 
AD 

00 
07 

55 
9B 

lABLE    RO, 

6248:80 
6250:4C 

22 
64 

61 
62 

69 
38 

00 
BD 

90 
02 

22 
61 

61 
E9 

53 
06 

0658:06 

AE 

08 

06 

AC 

09 

06 

60 

D9 

C660:8D 

07 

C6 

SE 

08 

C6 

ec 

09 

B5 

CH    110    SET    RO,S,255,7+S+RO 

6258:01 

9D 

02 

61 

BO 

22 

61 

E9 

7E 

C668:C6 

AD 

01 

C6 

18 

0A 

0A 

0A 

58 

MJ    120    NEXT: NEXT: LIST 

6260:00 

9D 

22 

61 

BD 

22 

61 

09 

E9 

0670 :0A 

0A 

60 

01 

06 

6D 

00 

C6 

F5 

6268:01 

D0 

0F 

A9 

46 

DD 

02 

61 

60 

C678:AA 
0680:03 
C688:C6 
0690 :F0 

8E 
00 
AA 
41 

05 
AD 
AC 
B9 

C6 
05 
00 
0A 

AD 
C6 
C6 
06 

02 
38 

AD 
8D 

C6 
ED 
03 
06 

9D 
00 
06 
06 

AC 
BB 
73 
FD 

Program  5:  ML  Demo 

Please  refer  to  the  "tulLX"  article  in  this  issue 
before  entering  the  following  listing. 

6270:00 
6  278:86 
6280:05 
6288:35 

14 
62 
A9 
FC 

A9 
A9 
01 
C6 

00 
14 
90 
FC 

90 
DD 
A2 
A5 

A2 
02 

61 
FO 

61 
61 
A9 
D0 

40 
00 
31 
FA 

5E 
lA 
IB 
B5 

C698:BD 

0B 

C0 

19 

0A 

C6 

90 

0B 

23 

6000 :A2    00    BD    10    60    9D 

00 

3F 

05 

629a:EE 

E4 

60 

EE 

E5 

60 

AD 

E4 

Fl 

C6A0:C0 

SA 

18 

69 

21 

AA 

AD 

01 

DA 

6008  :E8    E0    3F    D0    F5    4C 

4F 

60 

4A 

6298:60 

09 

08 

90 

14 

A2 

00 

8E 

C3 

C6A8:C6 

18 

0A 

0A 

0A 

6D 

00 

C6 

4E 

6010:00    00    00    00    00    00 

00 

00 

D0 

62A0:E4 

60 

08 

00 

04 

90 

0A 

A0 

20 

C6B0:Aa 

E0 

84 

B0 

IB 

B9 

87 

00 

F5 

6018:00    00    00    00    00    78 

00 

01 

BB 

62A8:00 

A2 

00 

BE 

E4 

60 

BE 

E5 

AA 

C6  Ba  :  D0 

16 

BD 

0B 

00 

0D 

06 

C6 

A9 

6020 :FE    00    03    FF   00    07 

FF 

80 

5D 

62B0:60 

40 

EE 

61 

00 

00 

00 

00 

AC 

C6C0:9D 
C6C8:98 

0a 

18 

C0 
69 

8A 
08 

18 
A8 

69 
40 

21 
Bl 

AA 
C6 

F3 
F6 

6028:07    FF   80   0F   FF    C0 
6030 :C0    0F    FF    00    07    FF 

0F 
80 

FF 
07 

BE 
61 

Program  6:  ML  Demo  Boot 

C6D0:4C 

17 

C7 

AC 

00 

C6 

A9 

FF 

7C 

6038 :FF   80    03    FF   00    01 

FE 

00 

7B 

For  instruct 

ons  on  entering  thifs  listing. 

please 

0608:38 

F9 

0A 

C6 

80 

06 

C6 

BD 

7E 

6040:00    78    00    00    00    00 

00 

00 

IF 

refer  to  "COfvlPUTEl 

s  Guide  to  Typing  In 

C6E0:0B 

C0 

20 

06 

C6 

9D 

0B 

00 

AD 

6043:00    00    00    00    00    00 

00 

A9 

B2 

Programs" 

n  this  Issue  of  CChviputel 

C6Ee:eA 

13 

69 

21 

AA 

AD 

01 

C6 

D5 

6050:00    8D    21    D0    80    20 

D0 

A9 

DD 

C6F0:18 

0A 

0A 

0A 

6D 

00 

06 

A8 

90 

6058:93    20    D2    FF    A9    01 

80 

00 

Bl 

RS    10    IF   Z 

=  3 

THEN    SYS 

24576 

C6F8:E0 

84 

B0 

IB 

B9 

87 

C0 

00 

IE 

6060  :C6    20    12    C6    A9    00 

8D 

01 

A4 

ER   20    IF    Z 

=0 

THEN    Z 

=  1: 

PRINT 

" 

C700:16 

BD 

0B 

00 

20 

06 

C6 

9D 

24 

6068:06    A9    41    80    04    C6 

AJ3 

00 

74 

[CLRJE53LOADI 

NG 

SPRITE 

3 

C708:0B 

00 

8A 

18 

69 

21 

AA 

98 

DD 

6070 :A2    32    A9    00    8D   00 

C6 

8E 

CC 

2'' 

':LOAD 

"SPRITE 

32- 

,8, 

1 

C710:18 

69 

08 

AS 

4C 

F8 

C6 

AE 

14 

6078:02    C6    8C   03    06    20 

15 

C6 

55 

CJ    30    IF    Z-- 

=  1 

THEN    Z 

=  2: 

PRINT 

"L 

C718:05 

06 

AD 

04 

C6 

9D 

00 

C0 

57 

6080 :A9    FF    8D   02    C6    BC 

E4 

60 

7A 

OADING 

SPRITE 

KERNAL": 

LO 

0720 :AD 

07 

C6 

AE 

08 

C6 

AC 

09 

C9 

6088 :8A   6D    E4    60   8D   03 

C6 

20 

B2 

AD    "SPRITE 

KERNAL", 

8,1 

C7  2B:C6 

60 

80 

07 

06 

8E 

08 

C6 

9C 

6090:18    C6    AD   01    06    09 

03 

80 

EB 

GS    40    IF   Z= 

=  2 

THEN    Z 

=  3: 

PRINT 

"L 

C730:8C 

09 

C6 

AD 

01 

C6 

18 

0A 

59 

6098:03    20    24    06    18    BA 

69 

23 

B4 

OADING 

ML 

DEMO " : 

LOAD    " 

ML 

07  38  :0A 

0A 

0A 

0A 

60 

01 

C6 

6D 

9B 

60A0:AA    90    01    03    EE    00 

06 

AD 

3A 

DEMO ",8,1 

© 
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MODified  Shapes 
For  Atari  ST 


This  fresh  adaptation  of  a  popular 
COMPUTE!  program  creates  pleasing 
graphics  and  also  contaitis  valuable 
information  about  using  GEMSYS  and 
VDISYS  in  ST  BASIC.  With  the  tech- 
niques explained  here,  you  can  draw 
on  a  full-screen  graphics  area  (with- 
out BASIC'S  usual  window  borders), 
manipulate  dialog  boxes,  and  monitor 
mouse  events. 


Paul  Carlson's  article  "MODified 
Shapes  For  IBM"  (COMPUTE!,  May 
1986)  is  interesting  both  as  a  tutori- 
al on  the  MOD  operator  and  for  its 
outstanding  graphics.  Since  ST 
BASIC  also  has  the  MOD  operator, 
the  logic  used  in  the  IBM  program 
works  equally  well  on  the  Atari  ST. 
But  the  ST  is  capable  of  doing  much 
more.  With  the  aid  of  GEMSYS  and 
VDISYS,  you  can  not  only  replicate 
the  original  program,  but  also  add 
distinctive  ST  features  such  as  dia- 
log boxes  and  mouse  input. 

Type  in  "MODified  Shapes  For 
ST"  below  and  save  a  copy  before 
you  run  it.  When  typing  the  pro- 
gram, you'll  notice  that  several 
lines  (those  containing  VDISYS  or 
GEMSYS  calls)  are  more  than  80 
characters  long.  This  is  done  so  that 
all  the  information  for  each  GEM 
call  is  on  one  program  line.  The  ST 
BASIC  editor  allows  you  to  enter 
lines  up  to  255  characters  in  length, 
provided  that  the  first  character  in 
the  second  screen  line  is  a  space. 


Robert  G.  Geiger 


If  you  have  a  520ST  with  512K 
RAM  and  the  TOS  operating  sys- 
tem on  disk  instead  of  in  ROM 
(Read  Only  Memory),  you  must 
turn  off  buffered  graphics  before 
you  run  the  program.  If  your  ST  has 
more  than  512K  of  memory  or  TOS 
in  ROM,  you  should  have  enough 
memory  to  run  the  program  with- 
out taking  this  step. 

The  program  runs  in  any 
screen  resolution — low  or  medium 
resolution  on  a  color  monitor,  or 
high  resolution  on  a  monochrome 
monitor.  However,  low  resolution 
is  truest  to  the  four-color  IBM 
screen  used  in  the  original  program. 
In  medium  or  high  resolution,  the 
design  occupies  only  part  of  the 
screen. 

From  PC  To  ST 

If  you  have  any  familiarity  with 
IBM  BASIC,  you  may  find  it  in- 
structive to  compare  the  original 
program  with  the  ST  version.  Some 
statements  in  the  PC/PCjr  pro- 
gram, such  as  KEY  OFF,  are  unnec- 
essary in  ST  BASIC  and  can  be 
omitted.  Most  of  the  program  logic, 
which  simply  manipulates  vari- 
ables, works  on  the  ST  with  no 
modification  at  all. 

However,  other  operations  re- 
quire different  commands.  For  in- 
stance, at  the  conclusion  of  the  IBM 
program,  the  INKEY$  statement  is 
used  to  make  the  program  pause 
until  you  press  a  key.  ST  BASIC 
lacks  INKEY$,  but  you  can  substi- 
tute  the   INP(2)   function.   And 


though  the  LINEF  command  in  ST 
BASIC  differs  a  bit  in  syntax,  it  can 
draw  Hnes  much  like  the  IBM  ver- 
sion. The  IBM  clears  the  screen  with 
CLS,  but  the  ST  uses  CLEARW  2, 
and  so  on. 

It's  possible  to  translate  most 
of  the  IBM  program  by  making 
BASIC  substitutions,  but  if  you  con- 
fine yourself  to  ordinary  BASIC 
commands,  you'll  end  up  with  a 
translation  that's  almost,  but  not 
quite,  satisfactory.  One  major  prob- 
lem involves  the  ST  BASIC  output 
window.  When  you  open  the  win- 
dow to  full  screen  size  with  FULLW 
2:CLEARW  2,  part  of  the  visible 
screen  area  is  taken  up  by  the  win- 
dow border,  title  line,  and  menu 
bar.  In  low  resolution,  the  usable 
screen  area  is  less  than  40  charac- 
ters wide,  and  you  can  print  only  17 
lines  of  text  before  the  window's 
contents  begin  to  scroll  upward. 

Because  screen  space  is  taken 
up  by  the  window  borders,  it  ap- 
pears impossible  to  duplicate  the 
IBM's  320  X  200  pixel  screen  exact- 
ly. Even  worse,  while  IBM  BASIC 
defines  the  upper-left  corner  of  the 
screen  as  coordinate  (0,0),  ST 
BASIC  considers  coordinate  (0,0)  to 
be  the  upper-left  point  inside  the 
output  window.  As  a  result,  any 
graphics  designed  to  occupy  the  en- 
tire IBM  screen  will  be  clipped  in 
the  ST  BASIC  output  window. 

Full  Screens  In  ST  BASIC 

The  solution  is  to  use  system  calls 
for  screen  output.  GEM  (Graphics 
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Environment  Manager)  allows  you 
to  draw  anywhere  on  the  screen, 
including  the  areas  normally  occu- 
pied by  the  BASIC  windows  them- 
selves. Two  of  the  more  important 
parts  of  GEM  are  the  VDI  (Virtual 
Device  Interface),  which  handles 
low-level  mouse  input  and  graphics 
display,  and  the  AES  (Applications 
Environment  Services),  which  han- 
dles more  complex  routines  such  as 
managing  windows,  drop-down 
menus,  icons,  and  dialog  boxes. 

The  basic  method  of  calling  a 
VDI  routine  is  to  store  the  infor- 
mation it  requires  into  reserved 
memory  locations  which  are  de- 
fined by  the  reserved  variables 
CONTRL,  PTSIN,  and  INTIN. 
These  memory  locations  are  known 
as  parameter  blocks.  Every  VDI  rou- 
tine requires  different  information, 
and  some  VDI  routines  don't  need 
information  in  all  three  parameter 
blocks.  Once  this  preliminary  work 
is  done,  you  call  the  VDI  routine 
with  the  statement  VDISYS(O).  The 
0  is  a  dummy  parameter  and  can  be 
any  numeric  value.  You  can  learn 
more  about  VDISYS  routines  in  a 
two-article  series  entitled  "Adding 
System  Power  To  ST  BASIC"  in  the 
April  and  May  1986  issues  of 
COMPUTE!. 

The  procedure  for  calling  an 
AES  routine  is  similar — first  you 
store  the  information  it  requires  in 
memory,  then  you  call  the  routine 
with  a  GEMSYS  statement — but 
different  information  must  be 
passed  to  the  routine,  and  the  num- 
ber inside  the  parentheses  is  signifi- 
cant. For  instance,  GEMSYS(52) 
calls  AES  routine  52  (see  below). 
This  program  uses  VDISYS  to  cre- 
ate graphics,  and  GEMSYS  to  han- 
dle user  input. 

Dialog  Boxes 

Some  of  the  most  useful  AES  func- 
tions involve  various  forms  of  the 
dialog  box — a  box  that  appears  on 
top  of  the  current  screen  display 
whenever  it's  time  for  you  to  select 
an  option,  respond  with  a  yes  or  no 
answer,  and  so  forth.  When  the  in- 
teraction is  over,  GEM  restores  the 
screen  and  lets  you  continue  where 
you  left  off.  Dialog  boxes  are  a  pow- 
erful way  of  creating  a  friendly  at- 
mosphere in  your  programs.  The 
full  capabilities  of  the  dialog  box 
are  beyond  the  scope  of  BASIC  (un- 


less you  have  the  Resource  Con- 
struction Set  utility  from  the  ST 
Development  System),  but  two  forms 
of  the  dialog  box — the  alert  box  and 
the  error  box — are  available. 

When  you  run  MODified 
Shapes,  it  begins  by  displaying  a 
dialog  box  with  three  options  la- 
beled EXl,  EX2,  and  EX3.  Depend- 
ing on  which  option  you  click  on, 
the  program  will  create  example 
screen  1,  2,  or  3.  After  you  make  a 
choice,  the  box  disappears,  the 
screen  is  redrawn,  and  the  program 
proceeds.  This  dialog  box  is  created 
with  AES  routine  52,  known  as 
FORM^ALERT,  which  both  creates 
a  dialog  box  and  tells  GEM  to  get 
input  from  it.  To  use  FORM_ 
ALERT,  you  must  store  two  items 
of  information  in  memory,  then  call 
the  routine  with  GEMSYS(52). 
After  the  interaction  is  finished, 
FORM—ALERT  passes  one  item  of 
information  back  to  you. 

Most    of   the   information 

needed  by  FORM ALERT  can  be 

passed  in  the  form  of  a  BASIC 
string.  First  the  string  is  defined, 
then  you  POKE  the  address  of  the 
beginning  of  the  string  in  a  reserved 
variable  area  known  as  ADDRIN 
(ADDress  IN).  This  tells  GEM 
where  the  string  is  located. 

The  FORM_ALERT  string  be- 
gins with  a  code  number  indicating 
which  sort  of  icon  you  want  the  box 
to  contain.  You  may  choose  a  stop 
sign  icon,  an  exclamation  point,  or  a 
question  mark.  These  icons  appear 
frequently  during  GEM  desktop  op- 
erations and  are  familiar  to  every 
ST  user.  After  the  icon  number 
comes  the  text  which  you  want  to 
print  inside  the  box.  If  an  icon  is 
also  used,  the  box  has  enough  room 
for  up  to  five  lines  of  text. 

Buttons  In  A  Box 

The  next  portion  of  the  string  con- 
tains the  text  you  want  to  appear 
inside  the  buttons.  Don't  confuse 
this  sort  of  button  with  the  physical 
button  on  the  ST  mouse  device.  In 
this  context,  a  button  is  a  smaller 
boxed-in  area  within  the  dialog 
box.  You  point  to  the  dialog  button 
with  the  mouse,  then  click  the  left 
mouse  button  to  select  that  option. 
Up  to  three  dialog  buttons  may 
be  included  in  a  single  dialog  box.  If 
you  include  only  one  button,  its  box 
may  contain  up  to  20  characters  of 


text.  It  is  also  possible  to  outline  one 
of  the  buttons  with  a  heavier  line  to 
indicate  that  it  can  be  selected  by 
pressing  RETURN  as  well  as  click- 
ing with  the  mouse. 

Line  70  of  the  program  creates 
a  typical  FORM_ALERT  string. 
Notice  that  each  component  of  the 
string  is  enclosed  in  a  set  of  square 
brackets  in  the  sequence  [icon  code] 
[message  text]  [button  text].  Notice 
that  new  lines  within  the  message 
text  and  button  text  are  separated 
by  the  logical  OR  character  ( I ). 
This  character  is  obtained  by  press- 
ing the  backslash  key  (\)  while 
holding  down  SHIFT. 

After  creating  a  string  and 
POKEing  its  location  into  memory, 
you  must  POKE  a  value  into  the 
location  defined  as  GINTIN  to  indi- 
cate which  button  is  to  be  chosen 
by  pressing  RETURN.  POKE  a  zero 
into  this  location  to  indicate  that 
RETURN  should  be  ignored.  POKE 
GINTIN  with  a  1,  2,  or  3  to  indicate 
the  first,  second,  or  third  button, 
respectively. 

When  the  FORM_ALERT  dia- 
log is  over,  you  need  some  way  to 
learn  what  choice  was  made.  This 
output  is  returned  in  the  location 
defined  as  GINTOUT,  which  you 
can  PEEK  from  BASIC.  When  GIN- 
TOUT  equals  1,  the  first  dialog  but- 
ton was  clicked.  Values  of  2  and  3 
indicate  that  the  second  and  third 
dialog  buttons  were  clicked.  Again, 
keep  in  mind  that  these  are  buttons 
within  the  dialog  box  on  the  screen, 
not  physical  buttons  on  the  mouse. 

Reading  Mouse  Events 

MODified   Shapes   uses  another 

AES  routine — number  21,  known 
as  MOUSE^VENT— to  pause  undl 
you  press  both  mouse  buttons.  The 
MOUSE_EVENT  routine  requires 
three  inputs  which  are  passed  in 
locations  beginning  at  GINTIN. 
The  first  value  to  be  passed  indi- 
cates the  number  of  clicks  to  be 
detected,  the  second  value  indicates 
the  mouse  button  to  be  read,  and 
the  third  indicates  the  button  condi- 
tion you  wish  to  look  for.  The  num- 
ber of  clicks  should  be  either  1  or  2. 
For  the  second  value,  use  the  value 
1  to  indicate  the  left  button,  2  to 
indicate  the  right  button,  and  3  to 
indicate  both  buttons.  The  third 
value  determines  which  condi- 
tion— being    pressed    or    not 
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"MODified  Shapes  For  Atari  ST"  dem- 
onstrates how  to  draw  graphics  on  the 
entire  screen  surface,  including  areas 
normally  occupied  by  BASIC'S  windoiv 
borders. 


pressed — the  routine  checks  for.  In 
most  cases  this  value  will  be  1,  indi- 
cating that  you  want  to  know  when 
the  indicated  button  is  pressed.  If 
you  supply  a  0,  the  routine  tells  you 
whether  the  button  is  not  pressed. 
By  calling  GEM  and  AES  rou- 
tines, we  can  not  only  mimic  the 
IBM's  graphics,  but  also  add  the 
ST's  own  signature  to  the  program 
in  the  form  of  dialog  boxes  and 
mouse  input.  The  accompanying 
table  shows  summaries  of  the  vari- 
ous VDI  and  AES  routines  used  in 
this  program,  along  with  the  pro- 
gram lines  in  which  each  routine  is 
called. 


With  the  aid  of  GEMSYS,  you  can  call 
system  routines  from  BASIC  to  create 
dialog  iioxes  like  the  one  shcrwn  here. 


MODified  Stiapes  For  ST 

10      A«=GB :CONTROL=PEEK(A») :GL 

0BAL=PEEK(A»+4):GINTIN=PEE 

KCA»+B):GINT0UT=PEEKCA«+12 

) : ADDB I N=PEEKCAt+ 16) 
20     POKE  CONTHL . 14 ; POKE  CONTB 

L+2,0:POKE  CONTRL+e , 4 :POKE 
INTIN,0:PQKE  lNTINt2,0:P0 

KE   INTIN+4 ,0:POKE   INTIN+6, 

0 : VD I  SYSCO ) 
30      POKE  CONTRL , 1 4 : POKE  CONTfi 

L+2,0:POKE  C0NTRL+6.4:POKE 
INTIN, 1 :POKE  INT IN*2, 1000 

:P0KE   I  NT  I N*4 ,  1000 : POKE  IN 

T IN+6, 1000:VOISYS(0) 
40     POKE  CONTRL , 3 : POKE  CONTRL 

+2,0:POKE  CONTRL+6,0:VDI SY 

SCO) 
50      MAINMENU:  POKE  CONTRL, 122 

:POKE  CONTBL+2,0:P0KE  CONT 

RL*6,1:P0KE  INT  I N , 0: VO I SVS 

CO) 
60     Nt  =  ADDRtN: POKE  G I  NT 

FORM_ALERT 
7  0     MENUt  =  " I  n (  :MODi  f  i  e 

63  for  ST; I [EX  1 ;ex 


I  N,  0: 


d  Shap 
2;EX  3 


BO 
90 

100 


120 
130 
140 
1  50 
160 
170 

180 

190 

200 

210 

220 

230 
240 


250 


)  "  *-CHR«CO  )  +CHR*  (  0  ) 

POKE  N#, VAfiPTRtMENUt) :GEM 

SYSt 52) 

C=PEEKtGINTOUT) :POKE  CONT 

RL.123:POKE  CONTRL+2,0:POK 

E  CONTRL  +  6 ,0 : vol  SYSCO) 

IF  0=3  THEN  GOTO  EK3  ELSE 
IF  0=2  THEN  GOTO  EX2  ELSE 
GOTO  EXl 
EXITBOX:  POKE  CONTRL, 122: 
POKE  CONTnL+2.0:POKE  CONTR 
L+6,1:P0KE  INT IN,0:VDISYSC 
0) 

M«iADDRIN:POKE  GINTIN.l:' 
FORM_ALERT  box 
TEXTt="t31 t IF inished?l[YE 
S:NOr'  +  CHR«C0)*CHR«C0) 
POKE  M»,VARPTB(TEXT«) :GEM 
SYSC52):C=PEEKCGINTOUT) 

IF  0=2  THEN  GOTO  MAINMENU 
ELSE  GOTO  BYE 


EXl  : 
=  1 

POKE 
t2,0 
SCO) 
FOR  J=0 
FOR  1=0 
or   I  >6 


SU=  .  1  :RU= 1-SU:  I  I  =  1  :C 


CONTRL, 3: POKE 
POKE  CONTRL+6, 


CONTHL 
0: VDI SY 


to  3:  I  l=-M  :JJ=1  : 
to  6: JJ=-JJ:  IF   I  < J 
J  THEN  280 


IF  J  <2  or  I  >2  THEN   C  =  C  M 
OD  3+1 

IF  J=3  THEN  C=C  MOO  3+1 
XC 1 )=0:XC2)=39:X(3):78: YC 

n=0:Yt3)=0: IF   11 =JJ  THEN 
YC2)  =  48  ELSE  YC2  )=-4e 
FOR  N= I  to  11 :X1=3+Xt3)+I 
«39:Y1=175-YC3)-J«48+I l»JJ 
*24 

FOR  M=l  to  3 : X2=3+XCM)+ l» 
39:Y2=175-YCM)-J«4a+I l»JJ» 
2  4 : C  =  C  MOD  3 ♦ 1 
COLOR  1.1,C:P0KE  CONTRL, 6 
rPOKE  CONTRL+2,2:POKE  CONT 
RL  +  6,0:POKE  PTSIN.XI  :POKE 
PTSIN+2 .Yl ;POKE  PTSIN+4,X2 
:POKE  PTSIN+6 . Y2 : VD I  SYSCO) 

X 1 =X2 : Y 1=Y2 :NJ=M  HOD  3+1 


Sel_Color  Representation 

(lines  20,  30,  570,  580) 

Input  Parameters 

POKE  CONTRL,14 
POKE  CONTRL-l-2,0 

POKE  CONTRL +  6,4 

POKE  INT1N,0-15 

FOKEINTIN  +  2,0-1000 
POKE  INTIN -f- 4,0- 1000 
POKE  INTIN +6,0-1000 

Cleai— Workstation 

(lines  40,  170,  310,  440) 

Input  Parameters 

POKE  C0NTRL,3 
POKE  CONTRL  + 2,0 
POKE  CONTRL  +  6,0 

Show—Cursor 

(lines  50  anci  110) 


opcode 

number  of 

vertices 

number  of 

attributes 

number  of  pen 

color 

red  intensity 

green  intensity 

blue  intensity 


opcode 

number  of  vertices 

number  of  attributes 


Input  Parameters 

POKE  CONTRL,  122 
POKE  CONTRL +  2,0 
POKE  CONTRL+6,1 
POKE  INTIN,0 


opcode 

number  of  vertices 
number  of  attributes 
reset  flag 


(NOTE:  The  VDI  normally  makes  note  in- 
ternally of  how  often  the  HIDE  CURSOR 
call  is  used;  to  disable  this  function,  set  the 
reset  flag  to  0.) 

Form A.Iert 

(Lines  60-80,120-140) 


Input  Parameters 

POKE  GINTIN.O 

X#  =  ADDR1N 


button  sirnulated  by 
pressing  RETURN 
ADDRIN  is  addressed 
as  a  double-precision 
variable 


POKE  X#,VARPTR(Message$) 

Output  Parameters 

KEY  =  PEEK(GINTOUT)  value  of  the 
button  clicked 

Hide-Cursor  (line  90) 


Input  Parameters 

POKE  CONTRL,  123      opcode 

POKE  CONTRL +  2,0    number  of  vertices 

POKE  CONTRL +6,0    number  of  attributes 

Polyline  (lines  240,  380,  510) 
Input  Parameters 

POKE  CONTRL,6  opcode 

POKE  CONTRL+2,2    number  of  vertices 

one  line 
POKE  CONTRL +  6,0    number  of  attributes 

X  coordinate  of  first 

point 

Y  coordinate  of  first 
point 

X  coordinate  of 
second  point 

Y  coordinate  of 


POKE  PTSIN.XI 
POKE  PTSIN  +  2,Y1 
POKE  PTSIN+4,X2 
POKEPTSlN  +  6,Y2 


second  point 
EvnUButton  (lines  290,  420,  560) 
Input  Parameters 


POKE  GINTlN,l-2 


number  of  clicks 

for  action 
POKE  GINTIN  +  2,1-3   mouse  button(s)  to 

be  read 
POKE  GINTIN  +  4,1       button  condition 

to  detect 
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260 


270 


280 
290 


300 
310 


320 

330 
340 
350 
360 
370 
360 


390 

400 


410 
420 


430 
440 


450 
460 

470 
4S0 
490 
500 
StO 


&20 
S30 


S40 


550 
560 


570 


SBO 


XOtM>=RU»XCM)«SU»XCNJ):YD 

CM)=HU»Y(M)+SU»Y(NJ) :NEXT 

M 

FOR  P=l  to  3:XCP3=XD(P) :¥ 

CP)=¥OCP) :NEXT  P.N 

NEXT  t . J 

POKE  GINT IN.  1  :POKE  G I  NT  I N 

+  2,1:P0KE  G  INT  I  Nf-4  ,  1  :GeMSY 

scan  :GOT0  ex  i  tbox 


SUi ,  12 :RU= 1-SU 
CONTRL ,3 :POKE  CONTRL 
:POKE  CONTRL*6.0:VDISY 

1=0  lo  3: FOR  J=0  to  3 
MOO  2= J  MOO  2  THEN  3 

:YC  4 


GINTIN 
, 1 iGEMSY 


CONTRL 
, 0 : VD  t  SY 


EX2  : 

POKE 

+  2  ,0 

S(0) 

FOR  I 

:  IF   I 

40 

Yt  n  =  49:YC2)=0:Y(3):0 

J=49:GOTO  360 

YC  n=0: Y(2)  =  49: Y(3)  =  49:Y: 

4)=0 

XC  n  =  20:X(2)=20:X(3)=89:X 

(  4  )  =  8  9 

FOR  N=0  to  ie:X1=X(4)+l»6 

9: Y 1 =Y( 4 )tj*49 

FOR  M=1  to  4 :X2=XCM)* 1*69 

;Y2=Y(M)+J»49 

COLOR  1,0, M  MOD  2tl:P0KE 

CONTRL  ,6iP0KE  CONTRL<-2,2:P 

OKE  C0NTHL*6,0:POKE  PTSIN. 

X1:P0KE  PTS  I  N<-2  .  Y  1  :  POKE  PT 

SI N+4 ,X2 : POKE  PTSIN+6,Y2:V 

01  SYSCO) 

XI=X2:Y1=Y2:NJ=M  MOD  4+1 

X0CM)=flU»XCM)+SU»XCNJ):YO 

(H)=RU»YCMJ+SU»YCNJJ:NEXT 

M 

FOR  P=l  to  8:XCP)=XDCP1 : Y 

C  PI =YDCP)  :NEXT  P ,N ,  J  ,  I 

POKE  ai NT  IN ,  1  : POKE 

+  2,1: POKE  Gl NT  I N+4 

3(21) :GOTO  EXITBOX 

EX3:  SU= .2 :RU=1-SU 

POKE  CONTRL. 3:P0KE 

+2.0:POKE  CONTRL+6 

SCO) 

FOR  J=0  to  2:F0fi  1=0  to  2 

:  IF  J  =  0  AND  I  <  > 1  THEN  550 

IF  1=1  THEN  E=31  ELSE  E=0 

XC 1 )=0;XC2)=25:X(3)=75rXC 
4)=100:XCS)=75tXC6)=25 
Y(  1 )=3 I  :Y(2)=0:YC3)=0:YC4 
)=3 I : YCS)=62: YC6)=62 
FOR  N=0  to  20 : X 1 =35+XC 6)+ 
l*75:yi=223-Y(6)-J»62-E 
FOR  M=l  to  6 : X2=35*X (M)+ I 
*75:Y2=223-YCM)-J*62-E 
COLOR  1,0. M  MOD  3*1: POKE 
CONTRL .SiPOKE  CONTRL+2,2:P 
OKE  CONTfiL+6 , 0 : POKE  PTSIN, 
XI:POKE  PTSlN  +  2, Yl  :POKE  PT 
S IN+4 ,X2 : POKE  PTSIN+6.Y2:V 
DISYSCO) 

X1=X2:Y1=Y2:NJ=M  MOO  6*1 
XDCM)=RU«XCM)+SU«XCNJ) :YD 
(M)-RU«Y(M)+SU»Y(NJ) :  NEXT 

M 
FOR  P=l  to  6:XCP)=XDtPJ :Y 
CP)=YDCP)  iNEXT  P.N 
NEXT  I  ,  J 

POKE  GINT  I  Ni,  1  :  POKE  GINTIN 
+  2,1:P0KE  Gl NT IN  +  4  ,  t :GEMS¥ 
SC21 ) :GOTO  EXITBOX 
BYE:  POKE  CONTRL, 14: POKE 
CONTflL+2 ,0:POK£  CONTRL+6, 4 
:POKE  INTIN,0:POKE  INTIN+2 
,r000:POKE   INT IN+4 , 1000 : PO 
KE  INT  I N  +  6 ,  1 000 : VD I SYSC 0 ) 
POKE  CONTRL , 14 :POKE  CONTR 
L+2,0:POKE  CONTRL+6, 4 :POKE 

INTIN,1:P0KE  INTIN+2, 0:pO 
KE  INT INt4 ,0:POKE  INTIN+6, 
0: VDISYSCO) :END  © 


Batch  Files 
With  IBM  BASIC 


Lawrence  H.  Bannister 


Anything  that  a  PC-DOS  batch  file 
can  do,  a  BASIC  program  can  do  bet- 
ter. By  calling  DOS  from  BASIC,  you 
can  perform  many  functions  that  can- 
not be  done  with  the  limited  language 
of  batch  commands.  The  demo  pro- 
gram below  works  on  any  IBM  PC 
with  BASICA  and  DOS  2.1  or  later. 


Most  IBM  users  already  know  that 
you  can  save  a  lot  of  time  by  using 
the  batch  commancis  of  PC-DOS  to 
perform  a  sequence  of  DOS  com- 
mands automatically.  But  the  aus- 
tere language  of  DOS  provides  only 
three  variations  of  one  simple  IF 
statement  and  has  no  practical  way 
at  all  of  manipulating  strings  or  per- 
forming arithmetic.  It's  very  diffi- 
cult to  write  a  batch  file  that  creates 
neat  screen  displays,  makes  logical 
branches,  allows  user  input,  and 
traps  errors. 

A  more  flexible  technique  is  to 
call  DOS  commands  or  even  batch 
files  from  within  a  BASIC  program. 
This  frees  you  from  the  limitations 
of  batch  files  and  takes  advantage 
of  the  string  and  arithmetic  func- 
tions of  BASIC. 

You  can  call  DOS  from  BASIC 
as  often  as  you  wish  by  using  the 
SHELL  command  found  in  IBM 
BASICA.  Although  it  is  not  docu- 
mented, this  command  is  imple- 
mented in  version  2.1  or  higher  of 
PC-DOS.  Aside  from  a  few  small 
problems  to  be  avoided,  its  possi- 
bilities are  limited  only  by  your 
imagination. 

(Note:  SHELL  is  also  found  in 


PCjr  Cartridge  BASIC,  but  does  not 
seem  to  work  reliably  due  to  mem- 
ory conflicts.  Therefore,  these  tech- 
niques aren't  recommended  for  use 
on  the  PCjr.) 

The  SHELL  Game 

To  demonstrate  some  of  these  pos- 
sibilities. Program  1  below  is  a 
BASIC  program  that  displays  two 
menus  of  options,  interprets  the  us- 
er's responses,  and  then  calls  a  vari- 
ety of  DOS  routines  in  several 
different  ways,  Program  2  is  a  short 
batch  file  that  is  required  as  part  of 
this  demonstration. 

When  you  run  the  BASIC  pro- 
gram, it  shows  a  menu  offering  four 
choices: 

MENU  A: 

1.  Show  system  date 

2.  Show  system  time 

3.  Show  system  date  and  lime 

4.  None  of  the  above 
Enter  your  choice: 

When  the  user  presses  a  key, 
the  program  checks  to  see  if  the 
keypress  was  1,  2,  3,  or  4,  and  if  so, 
uses  the  SHELL  command  to  call 
the  appropriate  DOS  function: 
DATE,  TIME,  or  a  batch  file  (Pro- 
gram 2)  that  calls  both  DATE  and 
TIME. 

When  DOS  returns  control  to 
BASIC,  Program  1  displays  a  sec- 
ond menu: 

MENU  B: 

1.  Run  Checkdisk 

2.  Show  Disk  Directory 

3.  None  of  the  above 
Enter  your  choice: 

This  is  similar  to  the  first 
menu,  except  this  time  the  program 
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calls  a  DOS  function  that  requires  a 
parameter  to  be  passed  to  the  DOS 
command  line.  The  BASIC  program 
asks  the  user  for  the  necessary 
information,  then  concatenates  the 
appropriate  command-line  string. 

Notice  that  the  SHELL  com- 
mand can  pass  either  a  literal  string, 
as  done  in  the  first  menu,  or  a  string 
variable,  as  in  the  response  to  the 
second  menu. 

No  Recursion  Allowed 

There  are  two  considerations  to 
keep  in  mind  when  using  this  tech- 
nique. First,  make  sure  your  system 
has  enough  memory.  Although 
DOS,  BASICA,  and  your  BASIC 
program  can  be  loaded  into  a  ma- 
chine with  as  little  as  64K  of  Ran- 
dom Access  Memory  (RAM),  you 
won't  have  much  memory  left  over 
to  do  anything  very  useful.  At  least 
92K  RAM  is  desirable,  because 
DOS  and  BASICA  together  use 
about  90K  if  that  much  is  available. 
You  need  still  more  memory  if  you 
also  want  to  run  a  batch  file  that 
calls  a  lengthy  program  like  EDLIN. 

Second,  be  sure  not  to  create  a 
sequence  that  is  reentrant  or  recur- 
sive. For  example,  the  result  will  be 
unpredictable  if  your  BASIC  pro- 
gram calls  a  batch  file  that,  in  turn, 
calls  BASIC,  Reentrant  sequences 
of  this  nature  are  apt  to  cause  a 
system  crash  that  can  be  remedied 
only  by  turning  off  the  power. 

A  minor  aggravation  is  that 
DOS  scrolls  25  lines  on  the  screen 
while  BASIC  scrolls  only  24  lines 
due  to  the  function  key  display  on 
the  25th  line.  Furthermore,  BASIC 
and  DOS  each  maintain  an  inde- 
pendent pointer  to  the  screen  posi- 
tion of  the  cursor.  These  differences 
can  cause  BASIC  PRINT  statements 
to  overwrite  something  that  DOS 
has  just  printed. 

To  avoid  this  problem,  always 
start  the  BASIC  program  with  the 
KEY  OFF  command  to  turn  off  BA- 
SIC'S function  key  display.  Then 
use  a  CLS  (clear  screen)  command 
each  time  that  DOS  returns  control 
to  BASIC,  or,  as  shown  in  the  se- 
quence following  the  second  menu 
in  Program  1,  surround  the  SHELL 
commands  with  LOCATE  24,1 
statements  and  two  blank  PRINT 
lines  to  ensure  that  both  DOS  and 
BASIC  always  start  scrolling  from 
the  bottom  of  their  own  screens. 


Program  1 :  BASIC  Batch 
Demo 

For  instructions  on  entering  this  iisting.  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  issue  of  compute!, 
M    1000    'PROCEDURE    DESCRIPTION 
BO   1010    '       clear    screen    and    disp 

lay  a  menu  o-ffering  four 
choices 
00  1020  '   wait  for    user  respons 

e 
En  1030  '   if  user  response  is  n 

Dt  valid 
»E  1040  '     then  i  display  erra 

r    mcBsage  and  repeat  the 
menu 
CI  1050  '   else  : 
BF  1060  '   invoke  the  selected  D 

OS  function  or  Batch  fil 

e 
NL  1070  '   clear  screen  and  disp 

1  ay  a  second  menu 
PA  1080  '   wait  for  user  respans 

e 
FO  1090  '   if  uE»r  response  is  n 

ot  valid 
51!  1100  '     then  !  display  erro 

r  mesBage  and  repeat  the 
menu 
JD  1110  '   else  : 
AH  1120  *   invoke  the  selected  D 

OS  function  or   program 
HE  1130  ' 
IJ  1140  • 

EH  1150  KEY  OFF  s  CLS 
KP  1160  GOTO  1210 
IC  1170  ' 
PO  1180  PRINT 

'error  messags 
EB  1190  PRINT  "*«»»«««  ILL 

EGAL  RESPONSE   '■    REDD" 
HP  1200  ' 
B«  1210  PRINT  :  PRINT  "MENU  A  J " 

'display  menu 
DF  1220  PRINT  s  PRINT  " 

1.  ShoM  system  date" 
FN  1230  PRINT  :  PRINT  " 

2.  ShoM  system  time" 
PS  1240  PRINT  :  PRINT  " 

3.  Show  system  date  and 
time" 

«  1250  PRINT  :  PRINT  " 

4.  None  of  the  above" 

PfC  1260  PRINT  :  PRINT:  INPUT  "Ent 

er  your  choice  :  ",  A* 
IE  1270  ' 
EK  1290  IF  A«  =  ""        THEN  118 

0 

'check  response 
OF  1290  IF  flSCCfi*)  <  49  THEN  118 

0 
HF  1300  IF  ASC(A«)  >  52  THEN  118 

0 
HE  1310  ' 
d  1320  IF  A*  =  "1"  THEN  SHELL  " 

DATE" 

'if  valid  : 
FB  1330  IF  A«  =  "2"    THEN  SHELL  " 

TIME" 
FK  1340  IF  A*  =  "3"  THEN  SHELL  " 

PR0G2" 
Ifl  13S0  ' 
FN  1360  CLS 

'clear  screen 
HO  1370  GOTO  1410 
H  1380  ' 
Dil  1390  PRINT  "»«»»»«t  ILL 

EBAL  RESPONSE   ^    REDO" 
'error  message 
HD  1400  ' 
K    1410  PRINT  !  PRINT  "MENU  B  i" 

'display  menu 
IH  1420  PRINT  :  PRINT  " 


1.  Run  Checkdisk" 
ilJ  1430  PRINT  :  PRINT  " 

2.  ShOH  Disk  Directory" 
M  1440  PRINT  :  PRINT  " 

3.  None  of  the  above" 

PfK  1430  PR  I  NT:  PR  I  NT  :     INPUT  "Ent 

er  your  choice  :  ",  A» 
ftK  1460  PRINT 
JI  1470  ' 
JG  1480  IF  A*  =  ""        THEN  139 

0 

'Check  response 
EO  1490  IF  ASC<A«)  <  49  THEN  139 

0 
«  1500  IF  ASC(A»)  >  51  THEN  139 

0 
II  1510  ' 
Fft  1520  IF  A*  =  "3"  THEN  1630 

'if  valid  : 
LL  1530  IF  A*  =  "1"  THEN  B*  =  "C 

HKDSK  " 
OC  1540  IF  A«  =  "2"  THEN  B«  =  "D 

IR  " 
Kfi  1550  INPUT  "Enter  drive  lette 

r  1  ",  C» 
K  1560  IF  C*  =  ""  ThffiN  1550 
IIP  1565  X=ASC(C«+CHR«(0)):IF  X<6 

5  OR  X>66  THEN  1550 
JF  1570  D«  =  B«  +  LEFT«(C«,1)  + 

KK  1580  LOCATE  24,  1 

IC  1S90  IF  A*  =  "1"  THEN  SOSUB  1 

710 
KH  1600  SHELL  D« 
JI  1610  PRINT  :  PRINT 
m  1620  ' 
IB  1630  PRINT  "End  of  BASICA  pro 

gram,  retivnlng  to  SYSTE 

M" 
ftF  1640  PRINT 
IK  1650  PRINT  TAB (20)  "Normally 

would  return  to  SYSTEM  h 

ere,  " 
M  1660  PRINT  TAB (20)  "but  for  d 

ebug  and  demo  purposes  t 

he" 
BO  1670  PRINT  TAB (20)  "program  h 

ill  restart  after  a  dela 

y" 

Hd  16S0  FOR  I  -  1  TO  5000  :  NEXT 

I  t  RUN 
JC  1690  • 
IJ  1700  ' 
NO  1710  PRINT 

'sub 

to  show  Harning 
IF  1720  PRINT  "WARNING  :  You  wi  1 

1  get  error  message  'Bad 
command  . . . ' " 
C«  1730  PRINT  "  if  the 

called  progran  1>  not  on 

H 

JL  1740  PRINT  "  the  dls 

k  in  the  default  drive" 
KI  1750  RETURN 

Program  2:  Batch  File  For 
Demo 

Note:  This  batch  program  must  be 
entered  with  a  text  editor  such  as 
EDLIN  or  a  word  processor  that  can 
I  save  files  in  ASCII  format. 

ECHO  OFF 

ECHO  . 

REM  Display  the  system  date 

DATE 

ECHO. 

REM  Display  the  system  lime 

TIME 

;ENDPROG2  © 
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Guardian  Angel 

For  Apple  DOS  3.3 


This  program  lets  you  protect  Apple 
DOS  3.3  disks  against  unauthorized 
use  or  copying.  Once  a  disk  is  protect- 
ed, it  cannot  be  copied  with  ordinary 
copy  programs — including  advanced 
nybble  copiers,  unless  the  would-be 
copier  knows  the  proper  parameters. 
It  works  on  all  Apple  Jl-series  com- 
puters with  DOS  3.3  and  a  disk  drive. 
If  you're  using  ProDOS  and  want 
similar  protection,  see  "Apple  Pro- 
DOS  Protector"  elsewhere  in  this 
issue. 


Would  you  like  the  ability  to  protect 
your  personal  disks  against  unau- 
thorized copying?  No  matter  where 
you  stand  on  the  copy  protection 
controversy,  nearly  every  computer 
user  has  disks  that  he  or  she  doesn't 
want  others  to  duplicate.  "Guard- 
ian Angel"  lets  you  protect  any 
DOS  3.3  disk  against  unauthorized 
copying,  yet  allows  you  access  to 
the  disk  with  a  simple,  four-digit 
code. 

To  use  Guardian  Angel,  you 
must  enter  and  save  five  programs. 
The  first  four  are  very  short  ma- 
chine language  files  which  can  be 
entered  directly  from  the  Apple  II's 
built-in  machine  language  monitor. 
To  enter  the  monitor,  type  CALL 
-151  and  press  RETURN.  Then 
type  in  the  lines  shown  here: 

0300:  A9  03  A0  10   20    D?  03  60 

0310:  01  60  01  m   01  09  30  03 

0318:  00  20  00  00  01  P0  FE  60 

0330:  00  01  EF  08 

1B58:  20  00  03  EE  19  03  CE  15 

1B60:  03  F0  03  4C  5B  IB  20  00 

1B6B:  03  60 

B78D:  AB  96  2B  4C  DF  BC  AD  E5 

BCDF:  C9  05  90  08  CB  A9  D9  A2 

BCE7:  Dfl  4C  EE  BC  A9  D5  AA  BD 

BCEF:  53  B8  BD  E7  BB  BE  7A  BC 

BCF7:  BE  55  B9  84  2A  98  4C  A4 

BCFF:  B9 

When  you  finish  entering 
these  lines,  press  CONTROL-RE- 
SET to  exit  the  monitor  and  return 


Boris  Troyanovsky 

to  BASIC. 

Now  you  must  BSAVE  each 
file  to  disk.  Because  these  files  are 
loaded  under  program  control,  you 
must  save  them  using  the  exact  file- 
names shown  here.  Enter  these 
lines  in  direct  mode  (without  line 
numbers)  to  BSAVE  the  four  ma- 
chine language  files: 

BSAVE  IOB,A$300,L$33 
BSAVE  HTR.OBJ,A$BCDF,L$21 
BSAVE  HFREM.OBJ,A$B78D,L$0C 
BSAVE  COPY.OBJ,A$lB58,L$E6 

Next,  type  in  and  save  the 
Guardian  Ange!  program  following 
this  article.  This  program  is  in 
Applesoft  BASIC  and  may  be  saved 
under  any  filename. 

Protecting  Disks 

To  protect  a  disk,  load  and  run 
Guardian  Angel.  It  automatically 
loads  the  four  machine  language 
files  into  memory,  then  displays  a 
menu  on  the  screen.  Press  C  to 
select  the  copy  protection  option. 

The  program  then  asks  you  to 
enter  a  unique,  four-digit  combina- 
tion lock  for  that  disk.  Each  digit 
can  be  a  number  from  0-9;  press 
the  ESC  key  if  you  make  a  mistake. 
Be  sure  to  write  down  the  combina- 
tion and  store  it  in  a  safe  place.  If 
you  forget  the  combination,  you 
may  not  be  able  to  gain  access  to 
the  protected  disk  yourself. 

After  you  have  entered  the 
combination,  the  program  prompts 
you  to  put  the  disk  you  want  to 
protect  into  drive  1.  To  be  on  the 
safe  side,  you  may  want  to  write- 
protect  this  disk  by  covering  its 
notch  with  tape.  Insert  the  disk  and 
press  RETURN.  The  program  con- 
siders this  disk  the  original,  which 
serves  as  a  model  for  the  new, 
copy-protected  destination  disk. 

Next,  you  are  prompted  when 
it  is  time  to  insert  the  destination 


disk.  Since  the  destination  disk  will 
be  completely  erased  prior  to  being 
copied,  be  sure  that  it  doesn't  con- 
tain any  valuable  information.  The 
program  will  continue  to  give  you 
instructions  as  it  completes  the  pro- 
tection process.  Simply  follow  the 
onscreen  prompts  until  you  see  the 
message  DONE. 

At  this  point  the  original  disk  is 
unchanged,  and  the  destination  disk 
contains  a  copy-protected  version 
of  the  original.  The  new  disk  will 
boot  normally  and  behave  normal- 
ly, except  that  it  is  protected  from 
unauthorized  access  and  copying. 

Restricted  Access 

Although  Guardian  Angel  protects 
the  disk,  you  are  responsible  for 
seeing  that  nobody  using  the  disk 
has  an  opportunity  to  examine  its 
contents.  If  you  intend  to  let  others 
use  the  disk,  no  program  should 
give  control  of  the  system  back  to 
the  user.  That  is,  the  program  must 
not  let  the  user  exit  to  Applesoft 
BASIC  or  the  machine  language 
monitor.  To  prevent  exit  to  BASIC, 
add  the  following  lines  to  any  Apple- 
soft program: 

0  ONERR  GOTO  63999:  POKE  1011,0 
63999  RESUME 

These  lines  protect  an  Apple- 
soft program  from  being  interrupt- 
ed by  CTRL-C  or  RESET. 

To  protect  a  machine  language 
program  the  same  way,  include 
these  two  commands  at  the  begin- 
ning of  the  program; 

LDA  #$00 
STA  $03F3 

If  you  take  these  precautions, 
the  disk  cannot  be  copied  and  the 
programs  on  it  can't  be  LISTed  by 
anyone  except  you.  However,  since 
the  disk  will  boot  normally,  other 
people  can  still  use  the  programs  it 
contains. 
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Denying  All  Access 

In  some  cases  you  may  want  to 
prevent  others  from  using  anything 
on  a  protected  disk.  To  accomphsh 
this,  save  the  following  program  on 
your  original  disk  using  the  file- 
name HELLO,  When  typing  this 
program,  replace  XXXX  with  the 
four-digit  combination  you  intend 
to  use  for  that  disk,  and  replace 
MYPROG  with  the  filename  of  the 
program  you  wish  to  run. 

0  ONERR  GOTO  63999:POKE  1011,0 

10  INPUT  A$ 

20  IF  A$  <>  "XXXX"  THEN  PRINT 

"WRONG  ACCESS  CODE":  PR#6 
30  PRINT  "CORRECT  ACCESS  CODE" 
40  PRINT  CHR$(4);  "RUN  MYPROG" 
63999  RESUME 

After  saving  the  special  HELLO 
program,  copy-protect  the  disk  as 
described  above.  When  you  boot 
the  protected  disk,  it  immediately 
prints  a  question  mark,  which  is  the 
signal  to  enter  the  secret  combina- 
tion. No  one  can  proceed  any  fur- 
ther until  the  right  combination  is 
entered. 

Reopening  The  Locl< 

There  may  be  times  when  you  need 
to  access  a  disk  after  protecting  it. 
To  do  this,  run  Guardian  Angel  and 
choose  the  A  option  from  the  main 
menu,  then  enter  the  combination 
for  that  disk  when  prompted.  If  the 
combination  is  correct.  Guardian 
Angel  returns  you  to  Applesoft 
BASIC.  Now  you  can  use  all  the 
DOS  commands  (CATALOG, 
SAVE,  LOAD,  etc)  which  were 
previously  denied. 

If  you  respond  with  the  wrong 
combination,  the  computer  will  re- 
port an  I/O  ERROR  every  time  you 
try  to  access  the  disk. 

Guardian  Angel 

For  instructions  on  entering  this  listing,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  In  this  issue  of  computei. 

67  10  HIMEM;  69'?'?:  DS  =  CHR*  (4) 
DB  20  PRINT  D«;"BLOAD  IDE" 
DF  30  PRINT  D*;"BLOftD  HTR.OBJ" 
5«  40  PRINT  D*;"BLOfiD  HPREM.DBJ" 
ia  50  PRINT  D»;"BLaflD  COPY. OBJ" 
52  60  TEXT  :  HOME  :  HTAB  14:  PR  I 

NT  "GUARDIAN  ANGEL" 
55  70   HTAB  7:  PRINT  "DISK  COPY  P 

ROTECTION  SYSTEM":  NORMAL 
33  80  VTAB  S:  HTAB  5:  PRINT  "DO 
YOU  WISH  TO:":  PRINT  :  HTfl 
B  5:  PRINT  "MCCESS    A  COPY 
-PROTECTED  DISK":  HTAB  10: 
PRINT  "OR":  HTAB  5:  PRINT 
"OOPY-PROTECT  A  DISK" 
IC  90  VTAB  8:  HTAB  20:  GET  ft* 
9C  100  IF  A*  =  "A"  THEN  BDTO  130 


IB  110  IF  A*  =  "C"  THEN  GOTO  2'?0 
31  120  E30T0  90 

i1   130  TEXT  ;  HOME  :  INVERSE  :  H 
TAB  10!  PRINT  "ACCESS  PRO 
TECTED  DISK":  VTAB  23:  HT 
AB  3:  NORMAL  :  PRINT  "CES 
C]  TO  BO  BACK  TO  THE  MAIN 
MENU" 
3<  140  VTAB  10:  HTAB  12:  PRINT  " 
COMBINATION  LOCKS":  PRINT 
:  PRINT  "      #1       #2 
#3       #4" 
18  150  PRINT  "      (  )       (  ) 

(  )       (  )  " 
ii  lb0   FDR  NL  =  1  TO  4:  VTAB  13: 
HTAB  8  «  NL  -  1:  BET  A* 
1)7  170  IF  At  =  CHR*  (27)  THEN  RU 

N 
n    180  IF  VAL  (A»)  >  9  THEN  NL  = 

NL  -  1:  NEXT  NL 
tt  190  IF  VAL  (AS)  =  0  AND  At  < 

>  "0"    THEN  NL  =  NL  -  1:  N 
EXT  NL 

17  200  CL(NL)  =  VAL  (At):  PRINT 

CL(NL):  NEXT  NL 
84  210  VI  =  CL(1)  t  10  +  CL(2):V 

2  =  CL(3>  *  10  +  CL(4) 
SA  220  IF  VI  =  31  THEN  VI  =  121 
61  230  IF  VI  =  63  OR  VI  =  64  THE 

N  VI  =  VI  +  50 
IF  240  IF  V2  =  31  THEN  V2  =  121 
2B  250  IF  V2  =  63  OR  V2  =  64  THE 

N  V2  =  V2  +  50 
37  260  POKE  47520,76:  POKE  47521 

,141:  POKE  47522,133 
65  270  POKE  48357,  VI  +  129:  POKE 

48359, V2  +129 
fll  280  VTAB  21:  PRINT  " DONE — 

-":  SET  B»:  HOME  :  END 
i5  290  HOME  !  INVERSE  :  HTAB  12: 
PRINT  "COPY  PROTECT  DISK 

":  VTAB  23:  HTAB  3:  NORMA 

L  :  PRINT  "CESC]  TO  BD  Bfl 

CK  TO  THE  MAIN  MENU" 
2E  300  VTAB  10:  HTAB  12:  PRINT  " 

COMBINATION  LOCKS":  PRINT 
:  PRINT  "       «l       « 

2       #3       «4" 
22  310  PRINT  "      (  )       (  ) 

(  )       (  )" 
41  320  FOR  NL  =  1  TO  4:  VTAB  13: 
HTAB  8  t  NL  -  Is  BET  A« 
Bl  330  IF  A*  =  CHR*  (27)  THEN  RU 

N 
AC  340  IF  VAL  (At)  >  9  THEN  NL  = 

NL  -  1;  NEXT  NL 
47  350  IF  VAL  (At)  =  0  AND  At  < 

>  "0"  THEN  NL  =  NL  -  1:  N 
EXT  NL 

2(  360  CL(NL)  =  VAL  (At):  PRINT 

CL(NL):  NEXT  NL 
Dl  370  POKE  34,  19 

9D  380  VTAB  20:  PRINT  "    INSERT 
SOURCE  DISK  INTO  DRIVE  1 

":  HTAB  4!  PRINT  "PRESS  t 

return:  to  begin  process" 

54  390  vtab  24:  htab  20:  bet  a* 

CC  400  IF  At  =  CHR*  (27)  THEN  RU 
N 

67  410  IF  At  <  >  CHR*  (13)  THEN 
SOTO  390 

US  420  POKE  47520,134:  POKE  4752 
1,43!  POKE  47322,133:  POK 
E  47187,213:  POKE  47335,2 
13!  POKE  48250,213:  POKE 
47445,213:53  •  9:SE  ■=  9:0 
P  =  liBU  =  8192: TR  -  1:  Q 
DSUB  710 

?5  430  A*  =  "":  FOR  A  =  117  TO  1 
54: A*  -  A*  +  CHR*  (  PEEK 
(8192  +  A)) :  NEXT  A 

55  440  POKE  47520,76:  POKE  47521 

,141!  POKE  47322,183 
?l  450  VI  =  CLCl)  «  10  +  CL(2):V 
2  -  CL(3)  *  10  +  CL(4) 


B4 

460 

BF 

470 

79 

480 

35 

490 

7A 

500 

22 

510 

4?  520 

(E  530 

6C  540 

*a  550 

41  S60 
65  570 


Al  580 
?B  590 


3(  600 
7D  610 


IB  620 
CF  630 


C2  640 


71  650 


9E  660 
JB  670 
II  6B0 


2A  690 


BF 

700 

5E 

710 

B7 

720 

F! 

730 

C9 

740 

71 

750 

29 

760 

25  770 


IF  VI  =  31  THEN  VI  =  121 

IF  VI  =  63  OR  VI  =  64  THE 

N  VI  =  VI  +  50 

IF  V2  =  31  THEN  V2  =  121 

IF  V2  =  63  OR  V2  =  64  THE 

N  V2  -  V2  +  50 

POKE  48357, VI  +  129:  POKE 

48359, V2  +  129 
HOME  :  VTAB  24:  HTAB  2:  P 
RINT  "INSERT  DESTINATION 
DISK  INTO  DRIVE  1":  HTAB 
12:  PRINT  "AND  PRESS  A  KE 
Y":  HTAB  20:  GET  Bt 
HOME  :  HTAB  5:  FLASH  ■  PR 
INT  "INITIALIZING";:  NORM 
AL  :  PRINT  "  DESTINATION 
DISK" 

PRINT  :  PRINT  CHR*  (4); "I 
NIT  "5A*;",D1" 
HOME  :  HTAB  4:  PRINT  "INS 
ERT  ORIGINAL  DISK  INTO  DR 
IVE  1":  HTAB  12:  PRINT  "A 
ND  PRESS  A  KEY":  HTAB  20! 

QET  B* 
TC  =  0:BF  =  8192:  FOR  TK 
=  3  TO  34:TC  =  TC  +  l!  VT 
AB  6:  HTAB  16:  PRINT  "TRA 
CK:  ";TK!  HOME  :  HTAB  7: 
PRINT  "READING  FROM  ORIGI 
NAL  DISK":BF  =  BF  +  4096 
POKE  796,1:  POKE  788, TK: 
POKE  789,13:  POKE  792,0: 
POKE  793,  INT  (BF  /  2S6) 
POKE  47520,134:  POKE  4752 
1,43:  POKE  47522,133:  POK 
E  47187,213:  POKE  47335,2 
13:  POKE  48250,213:  POKE 
47445,213 
CALL  7000 

IF  TK  =  7  OR  TK  =  12  DR  T 
K  =  17  OR  TK  =  22  OR  TK  = 

27  OR  TK  =  32  THEN  GOTO 
610 

NEXT  TK 

HOME  :  HTAB  2:  PRINT  "INS 
ERT  DESTINATION  DISK  INTO 

DRIVE  1"!  HTAB  12:  PRINT 

"AND  PRESS  A  KEY":  HTAB 
20!  SET  A* 

IF  TK  =  35  THEN  TK  =  34 
BF  =  8192:  FOR  TA  =  TK  - 
TC  +  1  TO  TK:  VTAB  6:  HTA 
B  16:  PRINT  "TRACK:  "jTA; 
"  "!  HOME  :  HTAB  7:  PRINT 

"WRITING  TO  DESTINATION 
DISK":BF  =  BF  +  4096 
POKE  796,2:  POKE  788, TA: 
POKE  789,15:  POKE  792,0: 
POKE  793,  INT  (BF  /  256) 
POKE  47520,76:  POKE  47521 
,141:  POKE  47522,183:  POK 
E  4B357,V1  +  129s  POKE  48 
359, VZ  +  129 
CALL  7000 
NEXT  TA 

IF  TA  -  35  THEN  HOME  !  PR 
INT  " DONE ":  SET  B*; 

RUN 
HOME  :  HTAB  3:  PRINT  "INS 
ERT  ORIGINAL  DISK  INTO  DR 
IVE  1":  HTAB  12i  PRINT  "A 
ND  PRESS  A  KEY":  HTAB  20! 

BET  B«!BF  =  8192:TC  =  0: 

NEXT  TK 
END 

REM  *t«DISK  ACCESS* *» 
FOR  SA  =  SS  TO  SE 
POKE  788, TR:  POKE  7B9,SA: 

POKE  796, OP 
HB  =  INT  (BU  /  256): LB  = 
BU  -  (HB  «  256) 
POKE  792, LB:  POKE  793, HB 
CALL  768: BU  =  BU  +  256:  N 
EXT  SA  _ 

RETURN  'S 
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Directory  Plus 
For  Commodore 


This  utilit}/  program  prints  a  compre- 
hensive disk  directory  on  the  screen 
or  a  printer,  giving  you  extra  infor- 
mation about  the  files  on  your  disks. 
The  program  requires  a  1541  or  1571 
disk  drive  and  runs  on  the  Commo- 
dore 64,  128,  Plus/4,  16,  and  VIC-20 
(with  at  least  8K  expansion).  A  printer 
is  optional. 


Virtually  every  Commodore  disk 
drive  owner  knows  how  to  get  a 
listing  of  a  disk  directory.  The  state- 
ment LOAD"$0",8  loads  the  direc- 
tory into  memory,  and  LIST 
displays  it  on  the  screen.  To  print 
the  directory  on  a  printer,  type 
OPEN  4,4  before  you  load  the  di- 
rectory, and  PRlNT#4:CLOSE  4 
after  the  listing  is  complete.  The 
normal  directory  listing — which  in- 
cludes the  filename  of  each  file,  its 
file  type,  and  number  of  blocks — is 
fine  for  everyday  use,  but  inade- 
quate for  more  advanced  purposes. 
In  many  programming  situations  it 
is  necessary  to  know  the  load  ad- 
dress of  a  file  or  the  actual  track  and 
sector  where  it  begins.  When  many 
files  are  involved,  discovering  such 
information  can  be  a  tedious  process. 
"Directory  Plus"  solves  this  by 
automatically  printing  an  expanded 
disk  directory  on  the  screen  or 
printer.  In  addition  to  the  usual 
information,  the  expanded  directo- 
ry includes  the  disk  track  and  sector 
where  the  file  begins,  and  the  load 
address  of  the  file  (the  address 
where  the  file  usually  loads  into  the 
computer's  memory).  The  accom- 
panying figure  illustrates  a  Directo- 
ry Plus  printout  for  a  typical 
COMPUTEf  DISK. 
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Directory  Plus  Printout 
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Directory  Plus  works  without 
modification  on  the  Commodore 
64,  128  (40-  or  80-column  screens), 
Plus/4,  16,  and  VIC-20  (with  at 
least  8K  exapnsion).  Since  the  VIC- 
20  screen  has  only  22  columns,  its 
directory  display  is  less  neatly  for- 
matted than  the  others;  however, 


the  printer  output  is  exactly  the 
same  for  all  versions. 

Program  Setup 

After  you  have  entered  and  saved  a 
copy  of  Directory  Plus,  run  the  pro- 
gram. It  begins  by  asking  whether 
you  want  to  display  the  directory 
on  the  screen  or  a  printer.  Press  S 
for  screen  output  or  P  for  printer 
output. 

If  you're  using  a  printer,  be 
sure  it  is  connected  properly  and 
turned  on  before  proceeding  any 
further.  Directory  Pius  is  designed 
to  work  with  the  following  Com- 
modore printers:  MPS-801,  MPS- 
802,  MPS-803,  1525,  and  1526.  As 
listed  below,  the  program  is  set  up 
to  work  with  the  MPS-802  and 
1526  printers.  If  you  have  an  MPS- 
801,  MPS-803  or  1525  printer,  re- 
move the  keyword  REM  from  the 
beginning  of  line  20  (but  leave  the 
rest  of  the  line  intact). 

The  program  also  works  as  is 
with  non-Commodore  printers,  /^ut 
oniif  if  your  printer/interface  combi- 
nation can  emulate  Commodore 
graphics  mode  exactly.  In  this  case, 
you  should  probably  remove  the 
REM  in  line  20  to  activate  the  Com- 
modore graphics  mode;  however, 
some  interfaces  for  non-Commodore 
printers  may  require  that  you  send 
additional  codes  to  the  interface  to 
put  it  in  Commodore  graphics  mode. 
It  may  also  be  necessary  to  add  a 
secondary  address  to  the  OPEN 
statement  in  line  790.  Consult  the 
manuals  for  your  printer  and  inter- 
face if  you  are  in  any  doubt  about 
the  capabilities  of  your  system. 

The  program  can  easily  be 
modified  to  work  with  printers  that 
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do  not  support  Commodore  graph- 
ics as  well.  Simply  replace  the 
graphics  characters  in  lines  800- 
910  with  spaces,  or  use  dashes,  as- 
terisks, or  any  other  characters  you 
wish. 

If  you  select  the  printer  option 
when  displaying  the  directory,  a 
second  prompt  will  appear  asking 
you  to  select  the  printing  width. 
Press  S  for  a  single-width  (normal) 
printout,  or  D  for  a  double-width 
printout.  Many  printer  interfaces 
that  support  Commodore  graphics 
do  not  support  the  graphics  charac- 
ters in  double- width  mode,  so  you 
may  not  be  able  to  use  the  D  option 
if  you  have  a  non-Commodore 
printer. 

Load  Addresses 

At  this  stage  the  program  prompts 
you  to  insert  the  disk  whose  direc- 
tory you  wish  to  view.  Press  any 
key  when  the  disk  is  in  place.  After 
a  pause  while  the  computer  reads 
the  disk  directory,  the  program  asks 
whether  you  want  to  see  the  load 
addresses  of  any  files.  To  display 
the  directory  without  any  address 
information,  press  the  3  key.  If  you 
want  to  see  the  load  address  for 
every  file  on  the  disk,  press  the  1 
key.  To  view  load  addresses  for 
only  selected  files,  press  2.  When 
this  option  is  selected,  the  program 
displays  each  filename  in  turn,  al- 
lowing you  to  choose  whether  you 
want  to  see  its  load  address;  press  Y 
to  display  the  load  address  of  the 
current  file,  or  N  to  skip  to  the  next 
file.  Note  that  some  files  (data  files, 
for  instance)  don't  contain  a  mean- 
ingful load  address.  In  such  cases, 
no  address  is  displayed. 

If  you  choose  to  display  load 
addresses,  the  disk  drive  spins  for  a 
few  moments  while  it  retrieves  this 
extra  information  for  each  file.  You 
should  not  continue  past  this  stage 
until  the  drive  is  finished  working 
(when  using  the  1541  drive,  wait 
unhl  the  motor  stops  spinning;  on 
the  1571,  wait  until  the  drive's  busy 
light  goes  off). 

After  every  prompt  has  been 
answered  and  the  drive  is  at  rest, 
the  directory  display  begins.  To 
slow  the  scrolling  of  screen  output, 
hold  down  the  CTRL  key  on  the 
VIC  or  64,  the  Commodore  key  on 
the  Plus/4  or  16,  or  CTRL-S  on  the 
128. 


After  the  directory  has  been 
printed  on  the  screen  or  printer. 
Directory  Plus  gives  you  the  option 
of  viewing  the  same  directory 
again,  or  of  changing  disks  and 
printing  a  directory  for  the  new 
disk. 

Directory  Plus  does  not  display 
information  about  deleted  (DEL) 
type  files.  DEL  files  are  rarely  of 
interest;  however,  if  you  wish  to 
view  them,  delete  line  870  from  the 
program.  Another  possible  modifi- 
cation involves  the  drive  number. 
Although  the  1541  and  1571  drives 
are  always  addressed  as  drive  0, 
some  Commodore-compatible  dual 
drives  include  drive  1  as  well  as 
drive  0.  To  access  drive  1  in  a  dual 
drive  system,  change  the  0  to  a  1  in 
lines  170,  180,  and  640. 

In  general.  Directory  Plus  works 
by  opening  the  directory  as  a  se- 
quential file  and  bringing  in  the 
contents  one  character  at  a  dme 
with  the  GET  statement.  The  man- 
ual that  came  with  your  disk  drive 
contains  additional  information 
about  the  structure  of  the  directory. 
For  those  interested  in  writing  simi- 
lar programs,  here  is  a  brief  outline 
of  the  major  segments  in  Directory 
Plus: 


Lines 

Function 

10-160 

Initialization 

170-230 

Read  header  information 

240-480 

Read  file  information 

490-700 

Read  load  addresses 

710-930 

Print  directory  listing 

940-1010 

Repeat  options 

1020-1050 

Check  error  channel 

Directory  Plus 

For  instructions  on  entering  this  itsting,  please 

refer  1o  "COMPUTEI's  Guide  to  Typing  In 

Programs"  in  this  issue  ot  computes. 

DP    10    ND?="" 

AK    20    REM    NDS=CHR5(e) :REM    REMO 

VE    REM    FOR    1525    OR    MPS-8 

01    PRINTERS 
DM    30    DIM    Fr?(5)  :FORI  =  0TO5  .-REA 

D    A$:FT$(I)=A?!NEXT 
XB    40    DATA    DEL.SEQ, PRG,USR,REL 

,DEL 
BA    50    DIM    F5( 144,5) 
XE    60    FE=664 
DC    70    PRINTCHR?( 147) ;CHR$(30) r 

CHR$ (17 ); "OUTPUT    TO    SCRE 

EN    OR    PRINTER    (S/P)     ?" 
BH    80    GETA5 :IFA$=""GOTOa0 
KJ    90    DV=3:IFA9="P"THENDV=4 
QQ    100    IFA?="S"THENGOTO140 
KF    110    PRINTCHR$( 17) "SINGLE    OR 

DOUBLE    WIDTH    (S/D)     7" 
KD    120    GETA$:IFAS=""GOTO120 
AG    130    BG9=CHR5(15) :IFA?="D"TH 

ENBGS=CHR$(14) 
AS    140    PRINTCHR?( 17) "INSERT    DI 

SK    AND    PRESS    ANY    KEY" 
RE    150    GET    A$:IF   A$=""    THEN150 


DX 

160 

EC 

170 

RS 

1B0 

SX 

190 

CR 

200 

AB 

210 

FG 

220 

CP 

230 

EH 

240 

PQ 

250 

SF 

260 

PX 

270 

RH 

280 

GP 

290 

EG 

300 

XA 

310 

MX 

320 

GD 

330 

ME 

340 

SB 

350 

BB 

360 

DM 

370 

SF 

380 

SC 

390 

AE 

400 

MS 

410 

FC 

420 

HC 

430 

DB 

440 

DK 

450 

PH 

460 

KC 

470 

GR 

480 

XA 

490 

HR 

500 

SK 

510 

PRINTCHR$( 145) "PLEASE    W 
AIT. . . [15    SPACES}" 
OPEN15,8,15:PRINT#15, "I 
0":GOSUfll020 
OPEN8,8,8, "50,S,R" 
GOSUB1020 

FORI=1T0142 :GET#8,A5 :NE 
XT 

FORI=143TO160 :GET#8, A? : 
N5=N5+A$:NEXT 
FORI=161TOi62 :GET#8,A?: 
ID$=ID5+AS :NEXT 
GET#8,A?  sFORI  =  164T0165 i 
GET* 8, A? :OS5=OS5+A$ :NEX 
T 

FORI=166T0254  5GET#8,A5 : 
NEXT 
CT=8 
NM-NM+1 

IFCT=8THENCT=1 :GOTO300 
Cr=CT+l:GET#8,A$,A5 :FL= 
ST 

IFFLO0GOTO480 
GET#B,AS :IFA5=""THENA5= 
CHRS(133) 

FL=ST :  IFFLO0GOTO480 
TY?=FT$ ( (ASC(A$ ) AND191 ) 
-128) 

GET#a,A5:IFA?=""THENA5= 
CHR$(0) 

TR$=RIGHT5( "{2    SPACES)" 
+STR5(ASC(AS) ) ,2) 
GET#8 , A5 : IFA$= " "THENA5= 
CHR?(0> 

SCS=RIGHTS("(2    SPACES)" 
+STR5(ASC(AS) } ,2) 
FL5«"":F0RI=3TO18:GET#8 
,A5 :FL5=FL5+A? :NEXT 
F0RI=19T027 :GET#8,AS :NE 
XT 

GET#8,LB5,HB5 
BL=ASC(LB5+CHR?(0) )+2  56 
*ASC(HB5+CHR?(0) ) 
IFTY5  <  > "DEL "THENFE=FE-B 
L 

BL?=RIGHT5( "{5    SPACES)" 
+STR?(BL),3) 
IFTR5="    0"GOTO480 
F5(NM,0)=FL5:F$(NM,1)=T 
Y? !F?(NM,2)=TR5!PS(NM,3 
)=SC?:F5(NM,4)=BL9 
F$(NM,5)=" (5    SPACES)" 
IFTYS  =  "PRG"THENF? [NM, 5  > 


XQ    520 


GOTO260 

CL0SE8 

GOSUB1020 

IFF? ( NM, 0 ) =" "THENNH=NM- 

1 :GOTO500 

FE?=RIGHTS( "[4    SPACES}" 

+STR?(FE),3) 

PEINTCHR5 ( 145 ); "START    A 

DDRESS    :":PRINTCHR$(17) 

; "    1)    ALL" 

PRINT"    2)     SOME":PRINT" 

(space) 3)    NONE" 

GETA5 :IFVAL(A$)=0THENGO 

TO540 

IFVAL( AS ) > 2GOTO7  70 

PRINT  "  ( CLR  )  "  :  I  FA5"< "  1  "TH 

ENPRINT"JUST    A    MOMENT.. 


BQ    570    F0RI=1T0NM 

MQ    580    IFF5(I,1)<>"PRG"GOTO700 

XK    590    IFA5="1"GOTO6  30 

BS    600    PRINTP$(I,0) ;"     (Y/N)" 

PX    610    GETA$  :IFA$»s""GOTO610 

RB    6  20    IFA?<>"Y"THENPRINT"(UP} 

"; !GOTO700 
QJ    630    SA5=F5(1,0) 
EK    640    OPEN    8,8,8,  "0:  "+SA$+-",P 

,R" 


MJ 

530 

EK 

540 

DS 

550 

MD 

560 
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GOSUB1020 

GETI8,LB5,HB5 

SA=ASC(LB5+CHR5(0) )+256 

*ASC(HB5+CHR9(0) ) 

CLOSES 

F?( I,5>=RIGHTS( " 

(6    SPACES )"+STR5(SA),  5) 

NEXT 

PRINT" {3    DOWNlWAIT    UNTI 

L    THE    DRIVE    LIGHT    GOES 

{space! OFF" 

PRINT    CHRS(28) ;SPC(21) ; 

:F0RQQ=1T014:PRINT    CHR$ 

( 163) ; :NEXT:PRINT    CHR? ( 

30); 

PRINT: PRINT "THEN    "; 

IFDV=4THENPRINT"SET    PRI 

NTER    &    "; 

PRI  NT  "PRESS    ANY    KEY" 

GET    A?:IF   A?=""    THEN760 

IFDV04THENPR1NTCHR?  (  14 

7) 

IFDV«!4THENIFND$  =  ""THEN0 

PEN6,4,6:PRINT#6,CHR$(2 

1) :CLOSE6 

OPEN4 , DV 

PRINT#4 ,BG5 ; " gAJ******* 

***********  I  j^|*«'rpT«* 

gR|******-*T***-^  I ..  .  1^5 

PRIOT#4 ,BG?  7 "z" • N5 ; " -" r 

ID?;"-";0S5;"-FR    SEC:     " 

;FE5;'^--";HDS 

PRINT#4 , BGS  f " gQi ******* 

*********gR3*EEl*gR|gE| 

*^R3gEj*gRl*"'''*^  Rl***** 

JQ  830  PRINT#4,BG?; "-FILENAME: 
n  SPACES 1-TYP-TR-SC-BL 
K-START-";ND? 

GR  840  PRI NT#4,BG$r"iQJ ******* 
*********^***  ^**^*  *  ^*  ** 


BM 

650 

QB 

660 

SH 

670 

PM 

680 

AK 

690 

MR 

700 

GK 

710 

EB 

720 

ME 

730 

EC 

740 

EH 

750 

JE 

760 

SA 

770 

AP 

780 

FH 

790 

BJ 

800 

AA 

310 

GR 

820 

L***  *  * 


^W3";ND5 


RS    850    F0RI=1T0NH 

CF  860  FL?=F$(I,0) :TY5=F5(I,1) 
:TR$=FS(I,2) !SC5=F5(I,3 
) :BL$=F5(I,4) 
IFTY?="DEL"GOTO900 
PRINT#4,BG$;"-";FL5;"-" 
;  TY?  ;  "  -"  ,-TR5  ;""-"  ;  SC?  j"^- 
"  ;  BL?  j"^- "  ;  F?  (  1 ,  5  }  ;  "  -"  ;  N 
D5 

PRINT#4,BG?;"- 
{16    SPACES}-{3    SPACES ]- 
{2    SPACES} -12    SPACES  J- 
{3    SPACES]- {5    SPACES)-" 
;ND? 
NEXT 

PRINT#4,BG$; " gZ§******* 
******* **BEj***gE|**gE? 

**BEJ***^El*^^^^*ExT^rMD 

PRINT#4:CL0SE4 

CLOSE    15 

IFDV=4THENPRINT"{CLR)PR 

INT    AGAIN    (Y/N)     7" 

IFDV=3THENPR1NT"VIEW   AG 

AIN    (Y/N)     ?" 

GETA? :IFA?="Y"THEN770 

IFA?<>"N"THEN960 

PRINTCHR$(145)"NEW   DIRE 

CTORY    (Y/N)     7(6    SPACES) 

BD    990    GETA$:IFA5="Y"THENRUN 
XB    1000    IFA5="N"THEN    PRINT" 

{CLRi":END 
GD    1010    GOTO990 
BQ    1020    INPUT#15,EZ,EZ?,TR, SE: 

IF    EZ=0    THEN    RETURN 
KD    1030   T$=CHR5(157)+CHR$( 32) 
CK    1040    PRINT    CHR5(18)    EZ;T5;E 

Z5,'TR;T5;SE 
HE    1050    CLOSE    3:CL0SE    15  © 


JB    870 
XK    880 


MQ    890 


BK    900 
GR    910 


AS  920 
m  930 
HJ    940 

GM    950 

BC  960 
RM  970 
JR   980 


The  Logical 
Alternative: 

True-False  Logic 
in  Atari  BASIC 

Ronald  R,  Lambert 


As  this  article  demonstrates,  there's  a 
compact  and  efficient  alternative  to 
conventional  IF-THEN  statements: 
logical  comparisons.  The  techniques 
described  here  work  with  Atari  BASIC 
on  the  400/800,  XL,  and  XE  comput- 
ers— and,  with  slight  adjustments, 
with  all  versions  of  BASIC. 


Anyone  who  has  read  a  BASIC  ref- 
erence manual  knows  about  logical 
operators  such  as  >,  <,  =,  AND, 
and  OR.  These  are  most  commonly 
used  in  IF-THEN  statements: 
IF  X>0  THEN  PRINT  X 

(X  will  be  printed  only  if  it  is  greater 
than  zero.) 

But  there  is  another  way  to  use 
logical  Statements,  one  that  can 
streamline  and  shorten  programs 
considerably — especially  in  Atari 
BASIC,  which  allows  calculated 
GOTOs,  GOSUBs,  and  RESTORES. 

BASIC  tests  logical  statements 
to  see  if  they  are  true  or  false.  In 
keeping  with  the  principles  of  Bool- 
ean algebra,  the  value  1  is  applied 
to  a  statement  if  it  is  true,  and  a  0  is 
applied  if  the  statement  is  false. 
(Some  BASICS,  such  as  those  found 
on  Commodore  computers,  the  IBM 
PC  and  PCjr,   and  Texas  Instru- 


ments TI-99/4A,  apply  a  —  1  if  the 
statement  is  true.)  When  the  value 
is  true,  the  statement  following  the 
THEN  clause  in  an  IF-THEN  state- 
ment is  executed.  When  the  value  is 
false,  the  program  skips  to  the  next 
line.  (Note  that  the  latest  BASICs 
usually  let  you  add  an  optional 
ELSE  clause  to  an  IF-THEN  state- 
ment. Execution  would  then  con- 
tinue with  the  statement  following 
ELSE.) 

The  same  true-false  evaluation 
also  happens  with  any  logical 
BASIC  statement,  such  as  X=10. 
Taken  by  itself  (this  may  require 
enclosing  the  statement  in  paren- 
theses), a  statement  like  X=10  can 
be  used  as  a  variable — a  variable 
that  can  equal  1  or  0,  depending  on 
whether  the  equation  is  true  or  not. 
Let's  see  how  we  can  take  advan- 
tage of  this  to  shorten  a  program 
line. 

Logic  Versus  IF-THEN 

Instead  of  this; 

100  IF  X  =  10  THEN  Y  =  Y-t-l 

Try  this: 

100  Y  =  Y  +  (X  =  10) 

If  you're  using  a  BASIC  that  as- 
signs a  —1  to  true  statements, 
change  the  sign  of  the  statement: 
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Y  =  Y-(X  =  10).  Subtracting  -1  is 
the  same  as  adding  1. 

Both  of  the  above  statements 
mean  the  same  thing  and  will 
accomplish  the  same  function:  Y  is 
incremented  only  if  X  =  10.  In  the 
second  example,  IF-THEN  is  re- 
placed by  a  logical  evaluation.  If  X 
does  not  equal  10,  then  the  state- 
ment (X=  10)  has  an  assigned  value 
of  0,  and  0  is  added  to  Y — leaving 
the  value  of  Y  unchanged.  Only 
when  X  does  equal  10  will  the  state- 
ment have  a  value  of  1,  causing  the 
value  of  Y  to  be  incremented. 

Not  only  is  the  second  example 
shorter,  but  notice  the  way  it  is 
constructed — the  program  will  not 
skip  to  the  next  line  if  X  does  not 
equal  10,  but  instead  can  continue 
on  to  read  further  statements  in  the 
same  program  line.  In  fact,  several 
IF-THEN  statements  in  effect  can 
be  combined  into  one  line,  as  the 
following  two  examples  demon- 
strate. 

Instead  of  this: 

10  X  =  X-(-l:lF  X  =  255  THEN  Y-Y  +  1: 

x=o 

20  IF  Y  =  255  THEN  Z=Z-I-1:Y  =  0 
30  IF  Z  =  255  THEN  PRINT  "DONE" 

:END 
40  GOTO  10 

Try  this: 

10  X  =  X  +  l;Y  =  Y-l-(X  =  255):X  =  X-255* 
(X  =  255):Z  =  Z  -f-  (Y  =  255):  Y  =  Y  -  255* 
(Y  =  255):1F  Z<255  THEN  10 

20  PRINT  "DONE":END 

(Remember,  if  you're  using  a 
BASIC  that  assigns  —1  to  true 
statements,  reverse  the  signs  in  the 
latter  example,  except  for  the  state- 
ment X  =  X-hl,) 

Again,  both  of  the  above  ex- 
amples do  the  same  things.  They 
increment  Y  by  1  every  time  the 
value  of  X  reaches  255  (and  also 
reset  X  to  0),  increment  the  value  of 
Z  every  time  the  value  of  Y  reaches 
255  (and  reset  Y  to  0),  and  then 
when  the  value  of  Z  reaches  255, 
print  the  message  DONE. 

In  the  second  example,  where 
logic  is  used,  the  statement 
(X=255)  is  multiplied  by  255  and 
subtracted  from  X.  As  long  as  X  does 
^7(7/ equal  255,  the  value  of  the  state- 
ment will  be  zero.  Since  255  times  0 
is  0,  then  0  is  what  is  subtracted 
from  X,  leaving  the  value  of  X  un- 
changed. But  when  X  equals  255 
and  the  equation  is  true,  then  we 
have  255  times  1  (or  —1,  depend- 


ing on  your  computer),  which  is 
255.  If  X  equals  255,  then  subtract- 
ing this  value  from  X  changes  the 
value  of  X  to  0.  (If  you're  using  a 
BASIC  that  assigns  -1  to  true 
statements  and  have  changed  the 
signs  in  the  above  statements  as 
noted,  then  —255  will  be  added  to 
X  when  X  equals  255.  Adding  a 
negative  number  is  the  same  as 
subtracting.) 

The  same  is  true  for  the  state- 
ment Y=Y-255*(Y  =  255).  In  ef- 
fect, four  conditional  statements 
have  been  combined  into  one  line. 

Logical  Branching 

As  mentioned  earlier.  Atari  BASIC 
allows  calculated  GOTOs,  GO- 
SUBs,  and  RESTORES.  When  logi- 
cal statements  are  used  in  these 
calculations,  it  is  possible  to  branch 
to  any  line  in  the  program  depend- 
ing upon  which  logical  statement  is 
true.  This  can  save  substantial 
amounts  of  memory.  Consider  the 
following  program: 

10  OPEN  #2,4,0,"K:" 

20  7  'Type  S,  L,  or  P.";GET  #2,N:IF 

N  =  83  THEN  60 
30  IF  N=76  THEN  70 
40  IF  N  =  80THEN80 
50  GOTO  20 
60  7  'This  could  be  a  save  to  tape  or  disk 

routine.";  GOTO  20 
70  7  'This  could  be  a  load  from  tape  or 

disk  routine.":  GOTO  20 
80  7  "This  could  be  an  output  to  printer 

routine.":GOTO  20 

If  we.  use  logic,  the  program 
can  be  substantially  shortened.  De- 
lete lines  30,  40,  and  50,  and  re- 
place line  20  with  this: 

20  7  'Type  S,  L,  or  P.":GET  #2,N:GOTO 
20  +  40*<N  =  83)  +  50*(N  =  76)-|-60* 
(N  =  80) 

The  program  works  exactly  the 
same  as  before. 

Timing  Tradeoffs 

Substituting  logical  statements  for 
IF-THEN  statements  usually  slows 
down  an  Atari  BASIC  program, 
though  normally  the  difference  is 
too  slight  to  matter,  especially 
when  the  line  is  executed  only  once 
or  just  a  few  times.  But  the  differ- 
ence is  measurable  when  the  state- 
ments are  enclosed  in  loops. 

To  demonstrate,  following  is  a 
short  program  that  counts  words  in 
a  long  text  string.  (Actually  it 
counts  spaces,  an  easy  way  to  get  a 
fairly  accurate  word  count.)  It  gen- 


erates a  long  string  of  text,  then 
uses  two  of  the  Atari's  internal 
clock  registers  to  lime  the  two 
methods  for  counting.  First  the 
words  are  counted  using  a  conven- 
tional IF-THEN  construction,  and 
then  they're  counted  using  logic. 


10 
20 


30 


40 


50 
60 


70 


80 


90 

100 


110 


01 
TE 

Qv 
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•  c 

TE 

TE 

TE 

? 
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FG 

IF 

EN 
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NE 

or 

TH 
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? 
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E 

FO 
W 
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N 
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O 
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M  TEXT 
XT«="W 
Br  I ook 
and  n 
k  a  du 
XT« (23 
XT* (75 
XT* 

!  ?  "Co 
DUNT=0 
20,0 
R  X=l 
ASC  (T 
UORDC 

XT  X  :  ? 

ds   COLt 

EN  in 

EEKC20 

ernal 

!?   "Co 

DUNT='0 
20,  0 
R  X  =  l 
ORDCOU 
SC (TEX 
EXT  X: 
ords  c 
gi  c  in 
+PEEK ( 
1 ntBrn 


«(2362) 
elcoma  to  th» 

Hotel .  All  wo 
o  pi  ay  makes  J 
11  boy." 
IB) ^TEXT* (31 ) ( 
)-TEXT* (31)1? 

unting. . . " : WDR 
iPOKE  l-J.BiPOK 

TO  LEN(TEXT«) 
EXT»  CX )  ) =32  TH 
0UNT=WORDCaUNT 

UORDCOUNTt "  w 
nted  uBlng  IF- 
■';PEEK  (  17)  »236 
)  J  "  jiffies  (i 
timer) . " 
unting .  . .  "  : WOR 
:POKE  19,0;POK 

TO  LEN(TEXT») 
NT-WORDCDUNT+ ( 
T« (X) ) =32) 
?  WORDCOUNT! " 
□unted  using  1 

" I PEEK(19) *25 
20> I "  Jiffies 

1  timer) . " 


When  you  type  in  and  run  this 
program,  it  displays  for  you  the 
word  counts  and  the  time  required 
for  each  count  measured  in  Jiffies, 
which  are  equal  to  1/60  second.  In 
this  case,  the  IF-THEN  routine  (line 
60)  runs  a  little  faster  than  the  logi- 
cal statement  equivalent  (line  100). 

Now  that  you  know  how  logi- 
cal statements  work,  you  may  take 
a  shine  to  the  kind  of  programming 
techniques  they  make  available. 
They  certainly  provide  a  logical 
alternative.  © 
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Commodore  SpeedScript 

To  BASIC 


This  utility  program  provides  a  con- 
venient way  to  convert  text  in  a 
SpeedScript  word  processing  file  into 
BASIC  PRINT  or  DATA  statements. 
The  result  is  a  BASIC  program  which 
you  can  load  and  run  as  a  stand-alone 
program  or  add  to  existing  programs 
of  your  own.  The  utility  program  re- 
quires a  Commodore  64  or  128  (in  64 
mode),  a  copy  of  Commodore  64 
SpeedScript  and  a  disk  drive.  Speed- 
Script  was  published  in  the  March 
1985  issue  of  COMPUTE!  and  also  is 
available  in  SpeedScript:  The  Word 
Processor  for  the  Commodore  64 
and  VIC-20  from  COMPUTE!  Books. 


One  of  the  first  commands  a  BASIC 
programmer  learns  to  use  is  PRINT, 
yet  no  matter  how  advanced  you 
become,  formatting  a  text  display 
with  PRINT  can  involve  a  lot  of 
trial  and  error.  If  you  PRINT  past 
the  right  edge  of  the  screen,  words 
may  break  in  the  middle  rather 
than  wrapping  completely  around 
to  the  next  line.  And  changing  just 
one  PRINT  statement  can  affect  the 
appearance  of  an  entire  screen. 

"SpeedScript  to  BASIC"  pro- 
vides an  answer  for  anyone  who 
wants  an  easy  way  to  format  text 
neatly  on  the  screen.  It  takes  a  text 
file  created  with  Commodore  64 
SpeedScript  and  converts  it  into 
PRINT  or  DATA  statements  ready 
to  be  merged  with  your  own  pro- 
gram. Some  uses  for  SpeedScript  to 
BASIC  include  creating  instruction 
screens  for  BASIC  programs,  pre- 
paring  self-contained    educational 


Frank  Colosimo 
Mike  Kozakiewicz 

or  advertising  programs,  or  con- 
verting word  processing  files  into 
BASIC  programs  that  can  be  read 
without  the  use  of  a  word  processor, 
If  you're  a  nonprogrammer, 
you  may  find  it  particularly  useful 
for  turning  word  processing  files 
into  BASIC  programs.  The  pro- 
grams it  automatically  generates 
are  completely  self-contained  and 
display  the  text  onscreen  without 
use  of  the  word  processor  itself. 

Format  Without  Frustration 

Type  in  the  program  listing  below, 
then  save  a  copy  to  disk.  Before  you 
can  use  the  program,  you  must  cre- 
ate a  text  file  for  it  to  process.  Load 
and  run  SpeedScript,  then  type  in  as 
much  text  as  you  wish.  When  that's 
done,  save  the  SpeedScript  docu- 
ment as  usual,  then  exit  the  word 
processor  and  load  and  run  this 
program. 

The  program  begins  by  asking 
you  whether  you  want  its  output  in 
the  form  of  DATA  statements  or 
PRINT  statements.  The  answer  de- 
pends on  your  goal.  The  PRINT 
option  is  most  useful  if  you  intend 
to  add  the  resulting  display  routine 
to  an  existing  program  of  your  own. 
If  you  want  a  stand-alone  program, 
choose  the  DATA  option;  this  cre- 
ates an  independent  program  that 
will  display  formatted  text,  one 
screen  at  a  time,  as  you  press  a  key. 

After  choosing  the  output  type, 
you  are  asked  for  the  name  of  the 
input  file.  Enter  the  filename  of 
your  previously  prepared  Speed- 
Script  file,  then  press  RETURN.  If 
you're  not  sure  of  the  exact  file- 


name, you  can  enter  a  dollar  sign 
($)  to  view  the  disk  directory.  If  you 
ask  for  a  file  that  does  not  exist,  the 
program  lets  you  try  again.  Enter  Q 
at  this  prompt  if  you  want  to  end 
the  program. 

The  program  now  reads  your 
word  processing  file  and  constructs 
a  series  of  new  BASIC  statements  in 
a  large  buffer  area  within  memory. 
The  file  conversion  routine  is  writ- 
ten in  machine  language  for  maxi- 
mum speed.  To  keep  you  updated, 
the  program  increments  the  counter 
display  each  time  it  processes  an- 
other 256  characters  of  text. 

Once  the  work  is  done,  the 
program  asks  you  to  insert  an  out- 
put disk  in  the  drive.  You  then  enter 
a  name  for  the  output  program  file 
to  be  created.  If  the  file  already 
exists  on  your  output  disk,  you  are 
asked  if  you  want  to  erase  the  exist- 
ing file.  If  you  choose  not  to  erase, 
you  are  asked  to  enter  a  new  file- 
name. You  may  also  end  the  pro- 
gram by  entering  Q  at  this  prompt. 
The  output  file  is  then  saved  to 
disk,  and  you  are  given  the  oppor- 
tunity to  save  a  copy  to  another 
disk. 

Accurate  Reproduction 

The  result  is  a  set  of  BASIC  pro- 
gram lines  which  accurately  re- 
create the  original  text  display.  Just 
as  in  SpeedScript,  the  program 
wraps  words  instead  of  splitting 
them  at  the  right  edge  of  the  screen. 
It  also  ignores  SpeedScript  format- 
ting codes,  which  are  relevant  only 
when  prindng  a  document  on  pa- 
per. All  other  characters  are  faith- 
fully  reproduced,    except   for 
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XR 

940    DATA    169,6,133,158,169, 

,0,153,34,147,34,59 

AG 

1260 

DATA   96,6,169,1,32,195 

39,133,159,32,212,192,9 

JR 

1120    DATA    58,142,0,255,32,2 

,255,169,36,141,215,19 

6 

04,255,173,196,194,73, 

5 

BE 

950    DATA    169,0,32,156,193,9 

128 

GQ 

1270 

DATA   169,48,141,216,19 

6,169,246,133,253,169,1 

MF 

1130    DATA    141,196,194,162,1 

5,169,1,162,8,160,0,32 

93 

8,160,8,24,32,240,255, 

KD 

1280 

DATA    186,255,169,2,162 

HR 

960    DATA    133,254,160,0,177, 

162 

,215,160,195,32,189,25 

253,201,255,208,1,96,32 

XQ 

1140    DATA    0,189,196,194,240 

5,32 

PQ 

970    DATA    156,193,230,253,20 
8,240,2  3  0,2  54,208,2  36,3 

,26,32,210,255,232,208 
,245 

CQ 

1290 

DATA   192,255,169,64,32 
,144,255,162,1,32,198, 

9,8 

980    DATA    10,0,153,34,147,14 

AA 

1150    DATA    18,80,82,79,67,69 

255 

ED 

,83,83,73,78,71,32 

EJ 

1300 

DATA    32,144,255,32,207 

4,34,59,58,151,53,51 

AU 

1160    DATA   66,76,79,67,75,35 

,255,32,207,255,32,207 

XS 

990    DATA    50,56,49,44,49,53, 

,32,0,238,238,194,169 

,255 

58,151 , 53 ,51,50,56 

CM 

1170    DATA    0,174,238,194,32, 

RF 

1310 

DATA   32,207,255,201,0, 

XE 

1000    DATA    48,44,48,58,153,1 
99,40,49,52,41,59,0 

205,189,169,46,32,210, 
255 

240,67,32,204,255,32,2 
28 

KJ 

1010    DATA    51,8,20,0,129,73, 
173,49,164,50,51,0 

AS 

1180    DATA    169,146,32,210,25 
5,96,0,32,26,193,32,20 
4 

1190    DATA    255,96,32,253,174 

PS 

1320 

DATA   255,201,32,208,6, 
32,217,195,76,161,195, 

MA 

1020    DATA    59,8,30,0,135,65, 

36,0,78,8,40,0 
1030    DATA    139,65,36,178,34, 

DQ 

GD 

1330 

201 

DATA    13,208,2,240,45,1 

EP 

,32,158,173,160,0,177, 
71 

1200    DATA   72,200,177,71,170 

62,1,32,198,255,32,207 

29,157,34,167,141,56,4 
8 

JE 

PB 

1340 

DATA    255,168,32,207,25 
5,72,152,170,104,32,20 

,104,142,12,195,76,13, 

5,189 

GP 

1040    DATA    58,128,0,86,8,50, 

195 

0,153,65,36,0,92 

.IC 

1350 

DATA    169,32,32,210,255 

EG 

1210    DATA   0,174,12,195,160, 

,32,207,255,201,0,208, 

SE 

1050    DATA    8,60,0,130,0,104, 

0,24,32,240,255,173,12 

8 

8,70,0,141,56,48 

PG 

1220    DATA    195,160,0,162,40, 

RR 

1360 

DATA    169,13,32,210,255 

PO 

1060    DATA    58,137,50,48,0,14 
4,8,80,0,153,166,48 

201,24,208,2,200,202,1 
69 

,76,129,195,32,210,255 
1  76 

SD 

1070    DATA    56,41,34,17,32,18 
,80,82,69,33,83,32 

XS 

1230    DATA   32,32,210,255,202 
,208,248,136,240,5,238 

SJ 

1370 

DATA   185,195,169,1,32, 
195,255,32,204,255,96, 

RE 

1080    DATA    65,32,75,69,89,32 

.12 

36 

,84,79,32,67,79,78 

KG 

1240    DATA    195,208,227,162,0 

DO 

1380 

DATA   48,32,228,255,201 

BK 

1090    DATA   84,73,78,85,69,14 
6,34,59,0,162,8,90 

,160,0,24,32,240,255,1 
62 

,32,208,1,96,201,13,20 
8 

SS 

1100    DATA    0,161,66,36,58,13 
9,66,36,178,34,34,167 

HC 

1250    DATA    0,181,217,9,128,1 
49,217,232,224,24,208, 

SE 

1390 

DATA    244,104,104,76,20 
6  .195 

CH 

1110    DATA    57,48,0,174,8,100 

245 

'                                                 © 

COMPUTERS 


|5XE- 


ATARI 


13D)(E I3S.95 

5Z0ST  (RGB) Call 

5J0ST  fMOMOl Call 

C-i;a..-CP.M.HOpgRE.    275.95 


PRINTERS 


STARMICRONICS 

SG-10 210  95 

SG-15 369-00 

SD-10 3S1.95 

SD-15 441.00 

SR-10 <69,l)0 

SR-15 5SZM 

SB-IO 565  00 

Pi)«erlvpe 299.95 

LEGEND 

MB r^  ......  15«.95 

1080 205.95 

UaO J59.95 

1385 295.Dfl 

OkimXt  10  1V0.95 

Okimale  ZD 210.DO 

IK 219.9S 

19Z 349-95 

PANASONIC 

KI-P1080 309.00 

KX-P1091 231.95 

KX-PlOgZ 369.00 

KX-PieSJ Call 

KX-P1595 CaO 

(a.P3131 259.95 

K)(-P3t5i m.oa 

MSPIO ?.T.'?F.^...    259.00 

HSP15 359.95 

MSP20 U5.95 

MSP25 499.95 

SEIKOSHA 

SP-lOOOIC-641 179.95 

SP-1000|Cimt™tcs| 1B5.95 

EPSON 

Call  lor  currenl  pricmg  on  ill  EpsDfl 
""^     PBlKTEfl  RIBBONS 

.  AND 

V^  DUST  COVERS  AVAILABLE    ^ 


SOFTWARE 


BATTERIES  INCLUDED 

Honwpak 31,9: 

Paperclip 36.95 

BRODERBUNO 

BankSlmlWrltSf 32.95 

Kaiauka 18,96 

Loda  Hunntr 18.95 

Prim  strop 27,95 

Print  Stifip  Companion Call 

Graptilcs  Librariis  L  II,  i  III  aa.16,95 
CONTINENTAL 

Tax  Advantage 34,95 

Horns  Accountait , , , ,  32 ,95 

MICROPROSE 

F-15  SthlB  Eagle ,,..20,50 

Silenl  Stryice 10,56 

Kennedy  Approacti. , , , 20.50 

OSS 

MAC   65 n.SS 

Action    M,95 

Basic  XL 38.95 

Basic  XE 48,95 

Tool  Xil! 18.95 

SUBLOGIC 

Flighl  Simulator  II 31,95 

Jil Call 

NIghl  Mission  Pinball 20.50 

SYNAPSE 

SfflWe 31,95 

Syncalc 31,95 


DISK  DRIVES 


INTERFACES 


HPPIISO,,,,*!.*",' 45,95 

U-Prtnl/Port 49.95 

U-PTtnt/16K 69,95 

U-Print/64K T9,95 

Conntction 64,95 

^      „    COMMODORE    ..„, 

Super  G 59.95 

MW350 56,95 

XBlecSupat 64.95 

G-Wil 48.95 

MIcrostuHir 69.95 


DISKETTES 


PRECISION    5'/4     V/i 

SS/DD S6,50    - 

DS/DO 11,75    — 

MAXELL 

MD1,,- S15, 95  32,95 

MD2 19-95    38,95 

NASHUA 

SS/DD -    29.95 

OS/OD -    32.95 

Al  Dnhnn  C«TY  a  LrtttKra  Wtninty 

INNOVATIVE  CONCEPTS 

F-N-FZ5/LDCk 12,50 

F-N-F50 12,50 

F-H-F  50/Lilc1l 16.50 

BiJk  Nolchers 3. 


3,M 


MONITORS 


MJ-10 .^1'.'.'^....  189, 95' 

HJ-22 254.95 

ZENITH 

ZVM122 74.9S 

ZVM  123 74.95 

AMOEK 

a»G 117.00 

3O0A 127.00 

310A 145.00 

Color  300 175,95 

Color  600 289,95 

Color  700', 469,00 

Color  710 539.00 

ATARI 

SH124 174-95 

SC1224 335.95 

NEC 

1J01 139.00 

1205 139,00 

1260 79,95 

SAKATA 

SC100 159.00 

THOMSON 

CM365 289.95 

14"  RGB  Color  CompcsilB  Amlnr  & 
Green  Switch 

CM366 189.95 

14"  Color  Cgnpeillt 


'earn  Modem 
100'/.  Hiyn  Compatitile . . .  199,00 
ATARI 

XM301 39,9S 

MpplOOOE 52,95 

MPP1200 199.95 

0MI1200ST 185.95 

300/1200  100%Harin  Compatlliie 

COMMODORE 

1670 169.95 

Hiley  Mo 59.95 

Messenger 

V.I.P./Compuiwn  46.95 

Vi>lki64J0 159.95 


WHITE  20  LB 

2500  Stits.  Hi.  Edge 26.95 

1000  Sills.  Liz.  Uqt 16,95 

500  Shlj.  Lai,  Edge 11,95 

ASSORTED  PASTELS 

2500  SMs.  L12,  Edge 44,95 

lOOStitj,  Lai,  Edge 26,95 

SOOShts,  Laz,  Edge 16.95 

MaHiag  Lalwlj  lOOOOTY 9,95 


1050. 


ATARI 


,  149,96 


Happy  1050 299,95 

Happy  Entlancer 139,95 

U,5-  Ooublers 54,95 

OT   Duplicator 149,95 

3T  Doulilor 54,95 

ndus  GT 198,00 

SF314 215,95 

SF354 .,..,...  169.95 

Hatu  10  Mig  Hard Call 

COMMODORE 

1571 - 249.95 

Enhancer  2DO0 185.95 

Indus  GT 205.00 


ORDER  TOLL  FREE  1-800-351-3442 

CUSTOMER  SERVICE  AND  PA  RESIDENTS  CALL  1-717-322-7700 


c  rtirienijJ  y  5  «  W^4FP0i0f(Je'S«Mt5Dief  huoflfM  ftiOff>iT*liddSlDpphjf(lred  Aiilve^i  [vcJ?(sMO  fl",,  fjf  sniOO'r^g  UPS  5."i  K-'g  aJd  W  uf-Li-Wied 
Eaa  Coaii,  I^cffnuncrscWKiCfttit  p&  resioeMS add d%  sain tn  f!w  jncp-^gto- pJiTesiSpiti  Ofoet^trf  c(f;^[^jii»x3»er«i-ai  treckintioiwwi  Wwrrt 
Sralutii  rwurc  piCf  cEl^n  auttoh^atioi.   DdKlive  ^nXixit  wul  ta  fK^Xta  or  feared  XarHi'-.q  lo  tt&uinXf   Ks  uud  v  mnaituoBt  prntuds  uH.  ?n£i«  *M 

"Where  Prices  are  Bom,  Not  Raised." 

"HITE  HOUSE 
COMPUTER 


P.O.  Box  4025 
Williamsport,  PA 
17701 


VISA  4%.  MASTER  CARD  4%.  AMERICAN  EXPRESS  5% 


Apple  ProDOS 

Protector 


These  programs  protect  your  Apple  II 
ProDOS  disks  against  unauthorized 
use  by  other  people.  If  you're  using 
DOS  3.3,  see  the  "Guardian  Angel" 
article  elsewhere  in  this  issue  for  a 
siriiilar  protection  method. 


"Apple  ProDOS  Protector"  lets  you 
protect  any  ProDOS  disk  from  un- 
authorized use  by  others.  Three 
files  are  required  to  make  this  sys- 
tem work.  Before  getting  started, 
type  in  and  save  Programs  1-3  list- 
ed below,  which  are  all  written  in 
Applesoft  BASIC, 

To  begin  the  protection  pro- 
cess, select  the  disk  you  want  to 
protect,  then  load  and  run  Program 
1,  "File  Creator."  The  program  asks 
you  to  enter  a  unique  access  code 
for  the  soon-to-be-protected  disk. 
The  access  code  can  be  any  length 
and  can  contain  any  combination  of 
letters,  numbers,  and  symbols  ex- 
cept for  the  comma  and  colon.  Be 
sure  to  write  the  access  code  down 
for  later  reference — you  may  find  it 
difficult  or  impossible  to  use  the 
disk  without  it. 

The  program  then  creates  a 
machine  language  file  on  disk 
named  START.END,ML,  You  don't 
need  a  copy  of  Program  1  on  the 
disk  to  be  protected,  only  a  copy  of 
the  START.END.ML  file  created  by 
Program  1. 

Next,  you  are  asked  to  enter 
the  name  you  wish  to  use  for  this 
disk's  startup  file.  Make  a  note  of 
this  filename  as  well. 

When  Program  1  is  finished, 
load  Program  2  and  save  it  on  the 
disk  to  be  protected,  Hsin^  the  file- 
name you  selected  for  the  startup  file. 
Then  load  Program  3  and  save  it  on 
the  disk  to  be  protected,  too,  using 
the  filename  ENDUP.  The  disk 
should  now  contain  these  three 
files: 


Jason  Coleman 

1.  START.END.ML,  the  machine 
language  file  created  by  Program  1. 

2.  Program  2,  saved  with  the  file- 
name you  selected  for  the  startup 
file  using  Program  1. 

3.  Program  3,  saved  with  the  file- 
name ENDUP. 

This  disk  is  now  protected 
against  most  users.  Only  program- 
mers proficient  at  working  with  the 
ProDOS  machine  language  inter- 
face (MLl)  can  gain  access  without 
knowing  the  access  code. 

Using  Protected  Disks 

When  a  protected  disk  is  booted, 
the  user  is  asked  to  enter  the  correct 
access  code.  If  the  access  code  is 
correct,  the  user  is  not  allowed  to 
use  the  disk.  Anyone  who  doesn't 
know  the  code  will  not  be  able  to 
break  out  of  the  program  by  press- 
ing CTRL-C  or  CTRL-RESET, 

When  you  are  finished  using  a 
protected  disk,  load  and  run  the 
ENDUP  program  (Program  3)  to 
disable  the  CATALOG  command 
so  other  users  can't  see  what's  on 
your  disk. 

Of  course,  no  protection 
scheme  is  foolproof.  But  you  should 
find  this  method  sufficient  to  deter 
most  casual  users  from  accessing 
your  ProDOS  disks. 

For  Instructions  on  entering  these  listings, 
piease  refer  to  "COMPUTEi's  Guide  to  Typing 
in  Programs"  in  1his  issue  of  COMPUTEI. 

Program  1 :  File  Creator 

:i  100  HBR  :  HSR2  :  TEXT  :  HOME 
C5  110  FDR  I  =  81?2  TO  B225:  REA 

D  J:  POKE  I, J:  NEXT  I 
BO  120  DATA  32,0,191,128,23,32,1 

76,249,173,37,64,240,1,96 

, 169, 22, 141 , 37, 64, 32, 0, 19 

1, 129,28,32, 176,249,96,3, 

96,0,64,2,0 
F4  125  POKE  8200,96:  CALL  E192:A 
=  PEEK  < 16421):  POKE  820 

0, 173:  POKE  S207,A 
«:  130  INPUT  "ENTER  THE  ACCESS  C 

DDE  WHICH  YOU  WILL  USE  TO 
ENTER  YOUR  DISK:"; AC* 


14  140  POKE  8226,  LEW  CAC*)  :  FOR 
I  =  B227  TO  B226  +  LEN  ( 
AC*):  POKE  I,  flSC  (  MID* 
(flC», I  -  8226) ) :  NEXT  I 

75  150  PRINT  CHR*  (4)"BSAVE  STAR 
T.END.ML,A*2000,E"; I 

SE  160  HOME  :  PRINT  "ENTER  A  FIL 
ENAME  FOR  YOUR  STARTUP  FI 
LE  (NO  LONGER  THAN  SEVEN 
LETTERS)"!  INPUT  SF«I  IF 
LEN  (SF«)  >  7  THEN  160 

(4  170  PRINT  CHR*  (4)"BL0AD  BfiSI 
C. SYSTEM, TSYS,A«2000" 

5D  175  IF  PEEK  (8192)  =  76  THEN 
185 

DC  100  POKE  8677,  LEN  (SF*)  :  FOR 
I  =  8678  TO  8677  +  LEN  ( 
SF») :  POKE  I,  ASC  (  MID* 
CSF*, I  -  8677)):  NEXT 

S3  184  GOTO  190 

«  185  POKE  8198,  LEN  (SF*) :  FOR 
I  =  8199  TO  8198  +  LEN  ( 
SF»):  POKE  I,  ASC  (  MID* 
(SF*, I  -  8198) ):  NEXT 

Bl  190  PRINT  CHR*  (4)  "UNLOCK  BAS 
I C. SYSTEM" 

as  200  PRINT  CHR*  (4)  "BSAVE  BAS  I 
C , SYSTEM , TSYS , A*2000 " 

Bl  210  PRINT  CHR*  (4)  "LOCK  BASIC 
.SYSTEM" 

M   220  NEM 

Program  2:  BOOTUP 

17  100  ONERR  GOTO  1000 

75  102  RS  -  PEEK  (1012):  POKE  10 

12, RS  +  10 
25  105  HBR  :  HBR2  :  TEXT  :  HOME 
n    110  PRINT  CHR*  (4)"BLDAD  STAR 

T. END. ML" 
BC  120  L  =  PEEK  (B226) 
CI  130  FOR  I  =  1  TO  L:CD«  =  CD* 

+  CHR*  (  PEEK  (8226  +  I)) 

:  NEXT 
F2  140  INPUT  "ACCESS  CODE:";  AC* 
C3  150  IF  AC*  <  >  CD*  THEN  PR#  6 

15  160  POKE  1012, RS 

BD  165  A  =  PEEK  (48944):  POKE  82 
21, A 

16  170  CALL  8192:  HOME  :  NEW 
7A  1000  RESUME 

Program  3:  ENDUP 

II  100  HGR  :  HGR2  :  TEXT  :  HOME 
?B  110  PRINT  CHR*  (4)"BLDAD  STAR 

T. END. ML" 
83  lis  A  =  PEEK  (48944):  POKE  82 

21, A 
37  120  POKE  B200,96:  CALL  8192 
It  130  A  =  PEEK  (16421):  POKE  82 

07, A:  POKE  8200, 173 
31  140  PRINT  CHR*  (4)  "BSAVE  STAR 

T. END. ML" 
IE  150  POKE  8207,0 
34  160  CALL  B206 
Bl  170  NEW  © 


August  1966  (XMMPII1B  83 


HOTVyUlRE:  software  Best  Sellers 


Thit 
Month 


Lost 
Month 


TWO 


Pid>ltoh»r 


Rwnarlcs 


Entertainment , 

1. 

2.  ; 

3. 
4, 
5. 


Bllte 


Ultima  IV 


Firebird  Licensees,     Action/adventure 


Jet 

The  Bard's  Tale 

Temple  ofApshal  Trilogy 


Inc. 

Origin  Systems, 

Inc. 

SubLogIc 

Electronic  Arts 

Epyx 


Fantosy  game 

Jet  simulation 

Adventure/role-playing  game 
Fantasy/role-ploying  game 


Education . 

1.  : 


2.       Math  Blasterl 

2,  Music  Construction  Set 

3.  4.       Color  Me:The  Computer 

Coloring  Kit 

4.  1 .        Typing  Tutor  III 

5,  6.       New  Improved 

MasterType 


Davidson 

Electronic  Arts 
Mindscape 

Simon  &  Schuster 
Scarborough 


introductory  math  progrom, 
ages  6-1 2 

Music  composition  program 
Children's  artistic  tool 

Typing  instruction  program 
Typing  instruction  program 


Home  Management , 


1. 

2. 

3. 


2.  Print  Stiop  Broderbund 

3.  Prinlmaster  Unison  World 
Better  Working  Spread-  Spinnaker 
sheet 

4.  1 .        The  Newsroom  Springboard 

5,  The  Newsroom:  Clip  Art  Springboard 

Collection.  Vol.  J 

Copyright  19S6  by  B/ffboord  PuWfca/tons,  Inc.  Complfed  by  the  Billboard  Research  Deporfmon*  and  reprinted  by  penrtutoo.  Do*o  as  of  6/7/66  (entertalnmem)  and  &/U/&6 
(educallan  and  home  management). 


Do-it-yourself  print  shop 
Do-it-yourself  print  shop 
Spreodsheet 

Do-it-yourself  newspaper 
Additional  graphics 


a 
a. 
< 


System* 


S 

I 

E 


o 
IE 
o 

I 


GREAT  PRODUCTS  FOR  YOUR  COMMODORE 

promer)ade  CV  CAPTURE'" 

The  Eprom  Programmer.  Thoughtfully  designed,  Take  control  of  your '64  or '128'  with  this  easy  to  use 
carefully  constructed,  the  promenade  CI"  is  respected  cartridge.  Lets  you  make  a  back-up  disk  of  your 
around  the  world  for  quality  and  value.  The  original  memory-resident  software.  Your  program  is  then  fully 
software  controlled  programmer  does  away  with  accessible  to  you  and  your  program  can  be  re-booted 
personality  modules  and  switches.  Intelligent  from  your  disk  3-5  times  faster.  Or  make  an  auto- 
programming  capability  can  cut  programming  time  by  starting  cartridge  using  the  promenade  CI  and  a  CPR 
95%l  With  Disk  Software still  just  S99.50  cartridge  kit.  Its  magic! 

CARTRIDGE  MATERIALS:  CAPTURE'"  is  a  bargain  a.  39.95 

CPR-3  •  Three  socket  board,  case  and  3  eproms,  for  use  with  CAPTURE'" 29.95 

PCC2  -  Two  2732  (4K)  or  2764  (8K(  eproms.  For  ■64  or  '128  in  64  mode 4.95 

PCC4  -  Four  sockets  for  2764,  27128  or  27256  (32K)  eproms.  Bank  switching 17.95 

PCCa  -  Like  the  PCC4  but  twice  the  capacity.  For  multiple  programs  29.95 

PRB4  -  Four  sockets,  eprom  &  battery  backed  RAM  combination  24.95 

PTM2  -  Basic  1 28  mode  cartridge  board.  Two  2764  or  271 28  eproms 5.95t 

PTM4  -  Four  sockets,  27128  &  27256  eproms.  128  mode  bank  switcher 19.95t 

PCCH2  -  Plastic  case  for  above  cartridges  (except  PCC8) 2.25 

Eproms  -  Always  in  stock  at  competitive  prices.  .       .,  ■.,     , 

''  ^  tavailable  June  86. 

'when  in  64  mode. 
EPROM  ERASERS: 

Datarase  -  Hobbyist  eprom  eraser,  2  at  a  time,  3  to  10  minutes  34.95 

PE14  -  Industrial  quality  eraser,  7  to  9  at  a  time 79.95 

Starter  Set  -  CAPTURE'",  promenade  CI  and  one  CPR3  kit ,,[  ug'gs 

Deluxe  Set  -  CAPTURE",  promenade  01,  Datarase  and  two  CPR3  kits 199.95 

SHIPPING  &  HANDLING:  USA  -  UPS  SURFACE  $3.00         FOREIGN  (AIR  MAIL  ONLY)  $13.00 

El^^  TO  ORDER  TOLL  FREE  800-421-7731 

I       I  lACnN    RAMklPIM  FROM  CALIFORNIA  800-421-7748 

*      J  W'*»i>*-'l^"nMI'MnCIIVI  TECHNICAL  SUPPORT  916-823-3284 

^^  1805  INDUSTRIAL  DRIVE  FROM  OUTSIDE  USA  916-823-3285 

^J  AUBURN,  CA  USA  95603  MC,  VISA,  AMEX  WELCOME 
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Commodore  128 
Machine  Language 

Part  1 


Jim  Butterfield,  Associate  Editor 


This  article  launches  a  new  series  on 
machine  language  programming  for 
the  Commodore  128.  In  this  install- 
ment, we'll  examine  some  basic  archi- 
tectural features  of  the  128,  including 
memory  banking,  and  look  at  a  pro- 
gram that  passes  information  between 
BASIC  and  ML 


The  Commodore  128  is  truly  three 
computers  in  one — a  Commodore 
128  when  in  128  mode,  a  Commo- 
dore 64  when  in  64  mode,  and  a 
Z80-based  CP/M  computer  when 
in  CP/M  mode.  This  series  of  arti- 
cles discusses  programming  the 
computer  in  machine  language  in 
128  mode. 

When  in  this  mode,  the  128's 
8502  microprocessor  can  execute 
the  same  instructions  as  the  Com- 
modore 64's  6510  microprocessor, 
and  many  of  the  programming 
techniques  used  on  the  64  work 
exactly  the  same  on  the  128.  These 
articles  are  directed  especially  at 
programmers  who  need  to  make 
the  transition  from  64  machine  lan- 
guage to  128  ML  programming.  Of 
course,  if  you're  familiar  with 
6502/6510  programming,  but  the 
128  is  your  first  Commodore  com- 
puter, you  can  still  benefit  from  the 
information  presented  here. 


Ground  Rules 

Here  are  two  simple  ground  rules  to 
keep  you  out  of  trouble  on  the  128: 

First,  it's  important  to  stay  in 
bank  15  when  writing  programs 
with  the  computer's  built-in  ma- 
chine language  monitor  (we'll  ex- 
plain what  a  bank  is  in  a  moment). 
This  rule  is  necessary  because  of  the 
128's  memory  architecture,  which 
can  be  confusing  to  a  beginner.  If 
you  choose  a  bank  number  lower 
than  12,  you  may  end  up  in  a  ma- 
chine configuration  which  has  no 
Read  Only  Memory  (ROM),  mak- 
ing it  impossible  for  your  program 
to  call  any  of  the  computer's  built- 
in  ROM  routines. 

Second,  stay  away  from  areas 
of  Random  Access  Memory  (RAM) 
which  are  usually  safe  on  the  64. 
On  the  64,  for  instance,  the  cassette 
buffer  located  at  828-1019  ($033C- 
$03FB)  is  a  good  place  to  put  short 
ML  programs,  and  the  free  RAM 
block  from  49152-53247  ($C000- 
$CFFF)  is  ideal  for  longer  programs. 
Both  areas  are  unusable  on  the  128, 
as  you'll  quickly  learn  if  you  try  to 
put  ML  code  there.  The  lower  area 
contains  critical  system  vectors  and 
subroutines;  if  you  change  their 
contents,  the  system  will  crash.  The 
higher  area  is  covered  by  Kernal 
ROM;  you  can't  easily  put  an  ML 
program  there  and  still  have  access 
to  ROM  routines. 

Instead,  the  128  has  safe  areas 


from  2816-3071  ($OBO0-$0BFF)  and 
4864-7167  ($1300-$1BFF).  The  first 
area  is  the  128's  cassette  buffer,  and 
the  second  area  is  currently  unused 
by  the  system.  In  later  articles,  we'll 
provide  more  details  on  these  rules 
as  well  as  some  exceptions  to  them. 

Why  Bank  15? 

The  128  is  capable  of  seeing  its 
memory  as  16  different  banks  num- 
bered 0-15.  The  term  tanks  is 
somewhat  misleading,  since  a  bank 
does  not  represent  a  separate  64K 
block  of  memory.  Instead,  each 
bank  represents  a  different  configu- 
ration or  arrangement  of  the  vari- 
ous available  RAM  and  ROM 
elements.  The  bank  number  deter- 
mines what  the  128  sees  within 
various  areas.  In  some  banks,  the 
128  sees  nothing  but  RAM;  in  oth- 
ers it  sees  a  combination  of  RAM 
and  ROM;  still  other  configurations 
include  RAM,  ROM,  and  input/ 
output  (I/O)  addresses,  and  so  on. 
In  fact,  there  are  256  possible 
memory  configurations.  Most  of 
these,  however,  are  of  little  or  no 
use.  For  example,  though  you  can 
configure  the  computer  to  see  only 
half  of  its  BASIC  ROM  and  none  of 
its  Kernal  ROM,  it's  hard  to  imagine 
any  use  for  such  an  arrangement. 
Commodore  has  chosen  16  config- 
urations which  seem  most  useful, 
named  the  different  configurations 
iw/ds,  and  identified  them  with 
numbers  from  0-15. 
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Figure  1  shows  the  configura- 
tion for  bank  15.  From  locations 
$0002-$3FFF  there  is  RAM.  The 
128  in  the  computer's  name  means 
that  the  computer  has  a  total  of 
128K  of  RAM,  which  is  arranged  in 
two  64K  blocks  called  RAM  0  and 
RAM  1,  Don't  confuse  these  blocks 
with  banks — some  RAM  from  one 
or  both  of  these  blocks  appears  in 
every  bank,  but  the  amount  varies. 

The  RAM  in  bank  15  is  from 
RAM  0,  the  block  that  holds  BASIC 
program  text  along  with  various 
buffers,  vectors,  and  system  vari- 
ables and  subroutines.  More  about 
the  rest  later.  For  the  moment,  it's 
important  to  notice  that  a  BASIC 
program's  working  values — vari- 
ables, arrays,  and  strings — are  not 
contained  in  the  same  bank  as  the 
program  text  itself. 

As  shown  by  Figure  1,  most 
addresses  above  16384  ($4000)  are 
seen  as  ROM.  The  BASIC  interpret- 
er alone  occupies  a  hefty  28K,  all 
the  way  up  to  45055  ($AFFF). 
Above  that,  we  have  the  machine 
language  monitor  and  operating 
system  (Kernal)  interspersed  with 
some  I/O  addresses  and  a  tiny  area 
earmarked  for  the  memory  man- 
agement unit  (MMU). 

In  the  I/O  section,  from 
53248-57343  ($DOOO-$DFFF),  all 
the  chips  from  the  Commodore  64 
appear  in  the  same  addresses. 
Thus,  your  favorite  64  POKEs  to 
make  sound  effects  and  so  forth 
work  exactly  the  same  in  128  mode. 
There  are  numerous  extra  I/O  loca- 
tions to  do  new  jobs,  such  as  con- 
trolling the  80-column  video  chip 
and  reading  the  extra  keys  on  the 
128's  keyboard. 

At  this  point,  we  won't  worry 
about  the  machinations  of  the  MMU; 
it's  enough  to  learn  that  bank  15 
provides  access  to  all  the  I/O  chips 
as  well  as  the  Kernal  ROM. 

When  you  put  a  machine  lan- 
guage program  in  RAM  0,  you 
might  be  tempted  to  issue  a  BANK 
0  statement  from  BASIC  before  you 
start  the  program  with  SYS.  After 
all,  bank  0  gives  you  access  to  all 
the  memory  in  RAM  0.  Don't  do 
this:  It's  better  to  stay  in  bank  15. 

Figure  2  shows  the  bank  0  con- 
figuration. Putting  the  computer  in 
this  configuration  will  certainly 
allow  it  to  see  your  ML  program  in 
RAM  0.  But  the  computer  can't  see 


its  I/O  chips  or  Kernal  ROM.  The 
computer  has  lots  of  memory,  but 
no  way  to  communicate  with  the 
outside  world. 

What's  the  lesson?  Stay  in 
bank  15.  You  are  limited  to  16K  of 
RAM,  but  that's  plenty  for  most 
applications.  Later  in  this  series, 
we'll  discuss  access  to  other  con- 
figurations. 

If  you  don't  specify  a  bank,  the 
computer  defaults  to  bank  15.  How- 
ever, it's  prudent  to  execute  a 
BANK  15  statement  just  before  any 
SYS  from  BASIC,  This  ensures  that 
your  program  will  work  even  if 
some  other  program  has  left  the 
machine  configured  for  a  different 
bank.  As  a  courtesy  to  other  pro- 
grammers (and  users  in  general), 
programs  that  use  other  configura- 


tions should  end  by  returning  the 
machine  to  the  default  bank. 

Memory  Use  In  RAM  0 

Figure  3  illustrates  typical  memory 
usage  in  the  first  16K  of  RAM  0. 
Note  that  there  are  several  unused 
memory  areas  available  for  pro- 
gram storage.  Unless  you're  using  a 
graphics  mode,  BASIC  program 
space  begins  at  7168  ($1C00). 
(While  programming  in  ML,  you 
might  want  to  avoid  using  an  other- 
wise handy  program  known  as  the 
DOS  Shell;  it  moves  the  start  of 
BASIC  up  to  $5B01  and  occupies 
memory  above  $1AOO — memory 
you  may  want  to  use  for  your  own 
purposes.) 

Figure  3  also  reveals  other  un- 
used or  little-used  memory  zones.  If 
you  don't  need  to  use  a  tape  drive. 


Figure  1:  Bank  15 


Figure  2:  Banic  0 


Figure  3:  RAM  0  Memory 
Usage 
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the  cassette  buffer  from  2816-3071 
($OBOO-$OBFF)  is  free.  If  you  aren't 
using  telecommunications,  the  RS- 
232  buffers  from  3072-3583 
{$OC00-$0DFF)  are  also  available. 
And  there's  a  large  block  of  empty 
memory  marked  reserved  for  appli- 
cations software  that  stretches  from 
4864-7167  ($1300-$ IBFF),  provid- 
ing over  2K  of  contiguous  free 
space. 

Friendlier  BASIC 

BASIC  7.0,  the  vastly  improved 
BASIC  in  128  mode,  has  several 
features  that  simplify  the  process  of 
combining  BASIC  and  ML.  We 
won't  explain  all  of  them  in  detail, 
but  here  is  a  brief  survey.  (Your 
System  Guide  contains  additional 
information.) 

In  addition  to  calling  an  ML 
routine,  the  SYS  statement  can  also 
pass  values  from  BASIC  to  ML,  The 
values  must  be  in  the  range  0-255 
and  are  placed  in  the  microproces- 
sor's registers  just  before  the  ML 
routine  takes  over.  Simply  tack 
them  onto  the  end  of  the  SYS  com- 
mand, separated  by  commas.  Con- 
versely, the  RREG  command  lets 
you  read  the  processor's  registers 
from  BASIC  after  an  ML  routine 
has  finished. 

The  BLOAD  command  can 
bring  in  any  ML  module  (or  a 
graphics  screen,  etc.)  with  no  fuss 
or  bother.  The  file  loads  into  the 
same  memory  area  from  which  it 
was  saved,  and  BASIC  continues 
with  the  next  command.  This  is 
much  simpler  than  the  gyrations 
required  in  earlier  versions  of  Com- 
modore BASIC. 

BASIC  7.0  also  makes  it  easy  to 
convert  numbers  between  decimal 
and  hexadecimal.  The  DEC  func- 
tion converts  a  hexadecimal  string 
into  a  decimal  number.  The  HEX$ 
function  converts  a  decimal  num- 
ber into  a  hexadecimal  string. 

A  Rudimentary  Example 

The  following  program  isn't  partic- 
ularly useful,  but  may  interest  you 
in  the  1 28's  new  features.  It  counts 
the  number  of  1  bits  in  any  eight-bit 
number  and  prints  them  out  in  a 
table.  You  may  not  be  excited  to 
learn  that  the  number  14  (binary 
00001110)  contains  three  1  bits, 
while  the  number  16  (binary 
00010000)  contains  oiUy  one,  but 


the  program  does  demonstrate  how 
to  pass  information  from  BASIC  to 
machine  language  and  back  again. 
We'll  explain  the  purpose  of  each 
program  line  as  we  go.  Here's  the 
first  one: 

100    BANK    15 

This  statement  puts  the  com- 
puter into  bank  15,  the  safest  con- 
figuration. Since  the  ML  part  of  our 
program  won't  use  any  Kernal  rou- 
tines or  I/O  chips,  we  could  use 
bank  0.  But  there's  no  advantage  in 
doing  so,  and  another  time  we 
might  not  be  so  lucky.  Remember, 
it's  always  wise  to  set  the  bank 
explicitly  rather  than  assume  every- 
one's computer  will  be  in  bank  15. 

110    DATA   162,0,74,144,1,232 
,168,208,249,96 

This  is  the  short  ML  program, 
stored  in  the  form  of  DATA  state- 
ments. It  takes  a  value  from  the 
accumulator  (A  register),  counts  the 
1  bits  in  the  value,  and  places  the 
result  in  the  X  register. 

120    FOR   J=2816    TO    2825 

The  actual  ML  code  goes  in 
locations  2816-2825  ($OB00- 
$0B09),  the  bottom  of  the  cassette 
buffer. 

130  READ  X:T=T+X 
140  POKE  J,X 
150  NEXT  J 

Before  the  ML  can  be  used,  it 
has  to  be  READ  from  the  DATA 
line  and  POKEd  into  memory.  A 
simple  additive  checksum  detects 
most  typing  errors. 

160  IF  TO  1334  THEN  STOP 

If  the  program  stops  at  line 
160,  you've  made  a  typing  error, 
most  likely  in  the  DATA  state- 
ments. If  not,  the  ML  code  is  safely 
planted  in  memory  and  we  can  pro- 
ceed to  the  job  of  bit  counting. 

200    FOR   J=0   TO    20 

We're  going  to  count  the  1  bits 
in  numbers  from  0-20.  You  can 
examine  higher  numbers  if  you 
like,  but  don't  try  anything  over 
255. 

210    SYS    2816, J 

This  statement  calls  the  ML 
program  at  its  starting  address  of 
2816  and  passes  the  value  of  the 
variable  J  to  the  processor's  A  regis- 
ter. When  the  machine  language 
program  begins  to  run,  the  A  regis- 
ter will  contain  that  value.  We 
could  also  have  passed  values  to 


the  X  and  Y  registers,  but  this  pro- 
gram doesn't  require  them. 

220    RREG    S,T 

When  we  reach  line  220,  the 
ML  program  has  returned  control  to 
BASIC.  We'd  like  to  know  what 
values  were  in  the  processor's  reg- 
isters, expecially  the  X  register, 
which  contained  the  bit  count.  The 
RREG  command  reads  the  registers 
and  places  their  values  into  BASIC 
variables.  The  A  register  goes  into 
variable  S  and  the  X  register  goes 
into  T,  Now  T  contains  the  bit 
count. 

230  PRINT  J,T 
240  NEXT  J 

That's  all  it  takes.  We  print  the 
value  of  J  and  the  bit  count  T,  then 
go  back  to  do  it  again. 

Yet  To  Come 

We  haven't  touched  yet  on  the 
128's  excellent  built-in  machine 
language  monitor,  nor  have  we  ex- 
plained how  to  "break  the  bank" — 
free  ourselves  of  some  of  the  con- 
straining features  of  working  with- 
in banks.  Later  in  this  series,  we'll 
do  all  of  this  and  more.  @ 
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Foolproof  Input 
For  Amiga  BASIC 


Here's  an  extremely  handy  tool  for 
Amiga  BASIC  programmers — a  routine 
that  creates  edit  field  boxes  for 
accepting  various  kinds  of  keyboard 
input.  The  routine  also  demonstrates 
how  well-designed  subprograms  can, 
in  effect,  add  new  commands  to 
Amiga  BASIC. 


Amiga  BASIC'S  ability  to  use  cus- 
tom subprograms  is  one  of  its  most 
valuable  features:  It  allows  pro- 
grammers to  accumulate  a  library  of 
very  useful  routines  that  can  be  at- 
tactied  to  virtually  any  BASIC  pro- 
gram. The  simple  requester  window 
subprogram  presented  in  the  March 
1986  issue  of  COMPUTE!  is  just  one 
example.  Another  subprogram  that 
should  be  in  every  programmer's 
collection  is  a  foolproof  input 
routine. 

The  ideal  input  routine  would 
simulate  the  Amiga  operating  sys- 
tem's own  edit  field  boxes.  An  ex- 
ample of  such  an  edit  field  appears 
when  you  select  the  Save  as  option 
in  Amiga  BASIC'S  Project  menu,  A 
similar  routine  in  BASIC  would 
give  your  programs  much  more 
control  than  provided  by  the  stan- 
dard INPUT  statement.  It  would  be 
helpful,  for  instance,  to  be  able  to 
limit  the  number  of  characters  that 
can  be  entered,  or  to  limit  numeric 
input  to  integers  rather  than  print 
error  messages  after  the  fact.  The 
input  routine  shown  here  has  all  of 
these  capabilities  and  more. 

Edit  Fields  In  BASIC 

The  complete  input  routine  consists 
of  two  subprograms:   "Getline," 


Tom  Bunker 

which  gets  a  line  of  input  from  the 
keyboard,  and  "Box,"  which  Get- 
line calls  to  draw  an  edit  field  box 
and  cursor  on  the  screen.  The  Box 
subprogram  is  very  useful  in  its 
own  right  and  can  be  used  indepen- 
dently of  Getline. 

Getline  lets  you  create  the 
equivalent  of  an  edit  field  box  in 
Amiga  BASIC.  Here  are  some  of  its 
features: 

•  The  main  program  which  calls 
Getline  sets  the  maximum  length  of 
input  allowed. 

•  The  Box  subprogram  draws  an  edit 
field  box  of  appropriate  size, 

•  The  cursor  inside  the  box  can  be 
flashing  or  nonflashing, 

•  The  main  program  can  select  the 
type  of  input  allowed:  alphanumer- 
ic characters,  real  numbers,  or 
integers. 

•  The  range  of  alphanumeric  char- 
acters accepted  for  input  can  be 
adjusted. 

•  Pressing  the  ESCape  key  aborts 
the  input  operation. 

•  A  single  keystroke  can  erase  all 
input  within  the  edit  field  box, 

•  The  main  program  can  display  a 
default  entry  within  the  edit  field 
box  which  the  user  can  edit. 

Getline  can  be  used  any  time 
your  program  needs  to  accept  input 
from  the  keyboard,  for  entry  of 
data,  filenames,  or  whatever.  To 
use  Getline,  your  program  should 
first  print  any  desired  prompt  mes- 
sage and  leave  the  cursor  at  the 
point  on  the  screen  where  input  is 
to  begin.  Then  you  must  call  Get- 
line using  this  general  format: 


CALL  Getline  (stTingS,maxtengthVo, 
inputtype'M 

The  string  variable  stringS  holds 
whatever  default  text  you  want  to 
display  inside  the  edit  field  box  for 
the  user  to  edit,  and  also  returns  the 
input  entered  by  the  user.  For  in- 
stance, if  Getline  is  called  as  part  of 
a  save-data-to-disk  routine,  you 
could  suggest  a  default  filename  or 
use  a  filename  which  the  user  has 
previously  indicated.  If  you  don't 
want  to  display  anything  within  the 
edit  field  box  when  it  appears,  set 
this  string  variable  to  a  null  string 
("")  before  calling  Getline.  In  any 
case,  Getline  returns  the  user's  in- 
put in  this  string  variable  after  the 
subprogram  passes  control  back  to 
your  main  program. 

The  second  parameter  {max- 
length%)  is  an  integer  which  sets 
the  maximum  input  length.  For  in- 
stance, if  you  want  to  limit  input  to 
30  characters,  you'd  specify  a  30  for 
this  parameter  by  supplying  either 
an  integer  variable  or  a  constant. 

The  last  parameter  [inputtype^/d) 
is  an  integer  which  tells  Getline 
which  type  of  input  to  accept.  There 
are  three  possible  values: 

0  accepts  all  alphanumeric  charac- 
ters without  restriction. 

1  accepts  real  numbers — the  digits 
0  to  9  and  the  decimal  point. 

2  accepts  integers — only  the  digits  0 
to  9. 

The  real  and  integer  types  also  ac- 
cept the  plus  and  minus  signs,  but 
only  in  the  first  character  position. 
Getline  simply  ignores  all  key- 
strokes that  do  not  conform  to  the 
type  of  input  selected. 
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CALLing  Getline 

Here  are  a  couple  of  exarr^ples.  Let's 
say  you  want  the  user  to  enter  his  or 
her  name,  up  to  14  characters  long, 
and  you  want  your  program  to 
store  the  information  in  the  string 
variable  NAMES.  The  proper  CALL 
would  be 

CALL  Getline  (NAME$,14,0) 

If  you  want  the  user  to  enter  a 
three-digit  integer  number  (per- 
haps a  telephone  area  code),  the 
proper  CALL  would  be 

CALL  Getline  (NUMBER$,3,2» 

Note  that  Getline  always  re- 
turns the  user's  input  in  a  string 
variable.  If  the  input  you're  seeking 
is  an  integer  or  real  number,  you 
can  convert  it  from  string  to  numer- 
ic form  with  the  VAL  function  after 
Getline  returns  control  to  your 
main  program. 

Remember,  too,  that  Amiga 
BASIC'S  CALL  statement  has  an 
alternate  syntax:  You  can  omit  the 
CALL  keyword  if  you  delete  the 
parentheses  surrounding  the  argu- 
ments. The  following  statements 
work  the  same  as  the  examples 
above; 

Getline  NAME$,14,0 
Getline  NUMBER$,3,2 

This  syntax  saves  a  bit  of  program 
space,  but  also  sacrifices  a  certain 
amount  of  program  clarity.  If  you 
include  the  CALL  keyword,  it  is 
always  clear  to  others  that  the  pro- 
gram is  calling  a  subprogram. 

Special  Keystrokes 

When  called,  the  Getline  subpro- 
gram first  draws  an  edit  field  box 
the  proper  size  to  hold  the  input.  If 
the  string  variable  supplied  in  the 
call  is  not  a  null  string  (two  quotes 
with  nothing  between  them),  the 
subprogram  prints  the  string  inside 
the  box.  A  flashing  cursor  indicates 
that  the  program  is  awaiting  key- 
board input.  Like  the  Amiga  oper- 
ating system's  own  edit  fields, 
Getline  recognizes  the  following 
special  keystrokes: 

•  ESCape  exits  the  edit  field  and 
leaves  the  string  variable  with  the 
value  it  had  when  Getline  was 
called. 

•  RETURN  exits  the  edit  field  and 
assigns  the  user's  entry  to  the  string 
variable. 


•  BACKSPACE  deletes  the  charac- 
ter to  the  left  of  the  cursor. 

•  DEL  deletes  the  entry  currently  in 
the  edit  field. 

•  CURSOR  LEFT  moves  the  cursor 
one  space  to  the  left. 

•  CURSOR  RIGHT  moves  the  cur- 
sor one  space  to  the  right. 

The  last  four  commands,  of 
course,  are  valid  only  if  at  least  one 
character  is  within  the  edit  field. 

Customizing  Getline 

Note  that  Getline  is  designed  to 
work  only  when  Amiga  BASIC'S 
default  font  is  used  and  Preferences 
is  set  to  80  columns.  If  you're  using 
a  60-column  screen  or  a  different 
font,  the  text  doesn't  appear  prop- 
erly within  the  edit  field  box.  You 
can  modify  the  subprograms  to 
solve  this  problem  if  you  don't  reg- 
ularly use  the  default  80-column 
font. 

If  you  don't  want  to  bother 
with  three  parameters  every  time 
you  call  Getline,  you  can  omit 
either  the  maximum  string  length 
or  input  type  or  both,  as  long  as  you 
also  delete  the  corresponding  items 
from  the  parameter  list  of  the  SUB 
statement.  The  Getline  call  can  be 
made  as  simple  as  this: 

Getline  NAMES 

In  this  case,  the  SUB  statement 
would  have  to  be  changed  to  look 
for  only  one  argument: 

SUB  Getline(inputstring$)  STATIC 

Getline  substitutes  default  val- 
ues for  maxlength%  or  inputtype% 
when  they  are  missing  from  the 
parameter  list.  Maxlength%  de- 
faults to  40,  and  inputtype%  de- 
faults to  0  (thus  accepting  all  types 
of  input).  You  can  change  these 
defaults  too,  if  you  wish. 

Two  variables  in  the  Getline 
subprogram — asc.lozu  and  asc.high — 
determine  the  ASCII  range  of  char- 
acters that  are  accepted  in  the  edit 
field.  You  can  change  these  vari- 
ables to  make  the  subprogram  ac- 
cept any  range  of  characters 
desired,  even  to  the  extent  of  re- 
stricting input  to  only  one  key. 
They  could  also  be  declared  in  a 
SHARED  statement  and  set  by  your 
main  program. 

The  ESCape  key  aborts  the  in- 
put and  exits  the  edit  field.  If  your 


main  program  needs  to  know  wheth- 
er or  not  the  edit  field  was  terminat- 
ed by  ESCape  (as  opposed  to  a 
RETURN  with  no  other  input),  add 
the  following  line  to  the  Getline 
subprogram  immediately  following 
the  SUB  statement: 

SHARED  K 

After  the  subprogram  ends,  your 
main  program  can  test  the  value  of 
K.  If  K=27,  the  ESCape  key  was 
pressed. 

You  can  also  program  one  or 
more  of  the  special  function  keys  to 
work  in  a  similiar  fashion  by  adding 
additional  lines  directly  below  the 
ESCape  key  line  to  test  for  any 
other  ASCII  value.  For  example,  the 
addition  of  this  line: 

IF  K>  =  129  AND  K<  =  138  THEN  EXIT 
SUB 

makes  all  the  function  keys  abort 
the  input  like  ESCape.  Your  main 
program  could  then  test  to  see  if  K 
is  equal  to  the  ASCII  value  of  any  of 
the  function  ke)'S  and  take  whatever 
action  is  desired. 

By  deleting  a  single  line  as  in- 
structed by  comments  within  the 
subprogram,  Getline  will  always 
start  with  an  empty  string.  Other 
comments  show  how  the  flashing 
cursor  can  be  changed  to  a  non- 
flashing  cursor  and  how  the  box 
around  the  edit  field  can  be  elimi- 
nated. To  make  these  changes,  it's 
not  necessary  to  actually  delete  the 
lines  which  are  indicated.  Simply 
insert  a  REM  at  the  beginning  of  the 
line  to  disable  it;  this  has  the  same 
effect  and  is  more  easily  reversed. 

The  Box  Subprogram 

To  draw  the  box  around  the  edit 
field,  Getline  calls  the  Box  subpro- 
gram. This  subprogram  selects  a 
rectangular  area  of  the  screen  and 
alters  it  in  one  of  four  ways.  You 
may  find  this  technique  useful  for 
other  purposes  as  well.  Here  is  the 
general  format  of  the  Box  subpro- 
gram call: 

CALL  Box  (wiiie%,ftig/!%,borrfer% 

or 

Box  wide%,high  "A,  border%,mode% 

The  first  two  parameters 
{tuide%  and  highVo)  set  the  size  of 
the  boxed  area  by  specifying  the 
width  and  height  in  nurnber  of 
characters.    The   third   parameter 
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{borderVo)  changes  the  size  selected 
by  increasing  or  decreasing  the  area 
on  all  four  sides  by  the  number  of 
pixels  specified.  If  this  argument  is 
0,  the  perimeter  of  the  area  falls  on 
the  character  boundaries.  The  last 
parameter  {mode%)  can  range  from 
0  to  3: 

0  fills  the  box  interior  using  a  PAT- 
TERN statement. 

1  inverts  the  interior  of  the  box. 

2  outlines  the  area  using  the  fore- 
ground color. 

3  fills  the  box  interior  using  the 
foreground  color. 

The  Box  subprogram  can  be 
very  useful  when  you  want  to  erase 
a  word  or  clear  any  rectangular  sec- 
tion of  the  screen.  Consider  this 
statement: 

COLOR  background#:Box  30,1,0,3 
:COLOR  foreground* 

This  erases  a  section  of  the 
screen  30  characters  long  without 
affecting  any  surrounding  text.  It 
sets  the  foreground  color  equal  to 
the  background  color,  fills  the  area, 
and  resets  the  color.  Of  course,  you 
can  achieve  the  same  effect  by 
printing  spaces,  but  the  Box  subpro- 
gram works  much  faster. 

Getline  Input  Routine 

Note:  The  left-arrow  symbols  in  thiis  listing 
indicate  when  to  press  RETURN  at  the  end  of 
each  program  line.  Do  not  attempt  to  type 
the  arrows  themselves, 

SUB  Getline(inputstring5 ,  maxlen 

gth%,  type%)  STATIC* 

'Value  of  type%  should  be  0  for 

character,  1  for  real,  2  for  int 

eger-* 

'Set  default  maximuni  length:-* 

default  length»40'« 

IF   maxl.ength%=0    THEN   maxlength%= 

defaultlength      ■« 

y=CSRLIN:X=POS(o) :a$=""< 

asc. low=32:asc.high=125    'Set  ASC 

II    limits-* 

'Delete  next  line  to  disable  edi 

t  mode :  ■♦ 

aS  =  inputstring?  -* 

cursor=LEH(a5 ) :strlength=LEN(a?) 

■« 

'Delete  next  line  to  eliminate  i 

nput  box:* 

Box  maxlength%,l,  2,2  ■« 

Print. line;* 

LOCATE    y,x:  PRINT    a?■^SPACE5  (maxle 

ngth%-LEN(a5) )* 

Getkey:* 

k?=INKEY5    ■* 

*  Delete  next  line  for  nonflashin 

g  cursor:* 

count=count-l  * 

IF  count<=0  AND  cursor<maxlength 

%  THEN* 

LOCATE  y,x-l-cursor:Box  1,1,0,1* 

count=100  'Set  cursor  flash  rate 

:* 


END  IF* 

IF  k5=""  THEN  Getkey* 

k=ASC(k?) :count=0* 

IF  k=13  TKEN  input3tring?=a?:GOT 

0  Done  ' Return  key* 

IF  k=27  THEN  Done  ' ESCape  key* 
IF  lc>=a3c.low  AND  k<=aac.high  AN 
D  atrlengt>i<maxlength%  THEN* 
IF  type%>0  THEN  'Check  if  real  o 
r  integer* 

IF  k<43  OR  k>57  OR  k=44  OR  k=47 
THEN  Print. line* 

IF  (k=43  OR  k=45)  AND  cursor>0  T 
HEN  Print. line* 

IF  type%>-l  AND  k=46  THEN  Print.  1 
ine* 

END  IF   * 

LOCATE  y,x+cursor :cursor=curao^-l- 
lIatrlength=strlength■l-l     * 
a?=I,EFT?  ( a5  ,  cursor- 1  )+k?-HMID$  ( a? 
(Cursor)* 
PRINT  MIDS (a?, cursor) iGOTO  Getke 

END  IF* 

IF  k=31  AND  cursor>0  THEN  ' Curso 

r  left* 

cursor=cur3or-l  * 

ELSEIF  k=30  AND  cur8or<3trlength 

THEN   ' Cursor  right* 

curBor=carsor-i-l* 

ELSEIF  k=127  THEN  'Delete  entry* 

a?='"':cursor=0:strlength=0  * 

ELSEIF  )?=8  AND  oursor>0  THEN  '  Ba 

ckspace  key* 

cur Bor=cursor-l : 9trlength=strlen 

gth-1* 

a$=LEFT5  (aS ,  cursor  )+mD?  (a? ,  curs 

or-(-2 )  * 

END    IF* 

GOTO  Print. line* 

Dones* 

LOCATE  y,x* 

PRINT  inputstring5+SPACE? (maxlen 

gth%~LEN( inputstring?) )* 

END  SUB* 

* 

SUB  Box(wide%,  high%,  border%,  m 

ode% )  STATIC* 

'wide*  and  high%  set  size  expres 

sed  as  number  of  characters* 

'border*  is  to  be  given  as  numbe 

r  of  pixels* 

'mode%  -  use  0  for  pattern  fill; 

1  to  invert  area* 

'model  -  use  2  for  area  outline; 

3  to  fill  area  with  foreground  c 

olor* 

y=CSRLIN*a-9-border%:yl=y:IF  yl< 

0  THEN  yl=0* 

x=POS(o)*8-9-border%:xl=x:lF  xl< 

0  THEN  xl=0* 

x2=x-l•wide%*8■l-l-^2*border%  * 

IF  X2>=WIND0W(2)  THEN  x2=WIND0W( 

2)-l  * 

y2=yt-high%*8-)-l-t-2*border%  * 

IF  Y2>=iWIND0W(3)  THEN  y2=WIND0W( 

3)-l* 

IF  xl>x2  THEN  xl=x2  * 

IF  yl>y2  TKEN  yl=y2* 

IF  mode%=2  THEN  LINE  (xl,yl)-(x2 

,y2) , ,b:EXIT  SUB* 

IF  mode%=3  THEN  LINE  (xl,yl)-(x2 

,y2) , ,bf lEXIT  SUB* 

AREA  (xl,yl):AREA  (x2,yl):AREA  ( 

x2,y2)iAREA  (xl,y2)* 

AREAFILL  mode** 

END  SUB*  _ 
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The  Screen  Machine  II 

Part  2 
Pull-Down  Menus  In  IBM  BASIC 

Charles  Brannon,  Program  Editor 


Last  month  we  presented  "The  Screen 

Machine  II,"  a  full-featured  drawing 
program  for  the  IBNi  PC  and  PCjr. 
Pull-down  }7tenus  make  it  quick  and 
easy  to  use.  Many  progranwiers 
would  like  to  add  user  interface  tools 
like  pull-down  menus  to  their  own 
programs,  so  this  month  we'll  take  a 
look  at  the  techniques  used  in  Screen 
Machine  U.  The  programs  require  an 
IBM  PC  with  color /graphics  adapter 
and  BASICA  or  a  PCjr  with  Cartridge 
BASIC.  A  joystick  or  graphics  tablet  is 
optional  but  recommended. 


"The  Screen  Machine  11"  is  a  pow- 
erful graphics  program  that  lets  you 
draw  in  full  color  with  a  complete 
set  of  drawing  tools.  It  is  designed 
to  be  as  easy  to  learn  as  possible 
without  encumbering  advanced  us- 
ers. Last  month  in  Part  1,  we  listed 
Screen  Machine  11  without  RE- 
Marks  for  the  sake  of  brevity.  This 
month,  we're  publishing  the  fully 
commented  version  with  an  expla- 
nation of  how  you  can  use  the 
menu  subroutines  in  your  own  pro- 
grams. See  Part  1  for  an  explanation 
of  how  to  use  Screen  Machine  II. 

Why  A  Visual  Interface? 

The  visual  user  interface — consist- 
ing of  pull-down  menus,  icons,  and 
screen  windows — is  rapidly  be- 
coming the  most  popular  way  to 


operate  a  personal  computer.  Since 
the  Apple  Macintosh  was  intro- 
duced in  1984,  nearly  a  million 
Macs  have  been  sold.  The  basic 
principles  have  been  adapted  by 
the  Atari  ST  series  and  Commodore 
Amiga,  and  several  similar  shells 
are  available  for  IBM  PC  comput- 
ers— including  Digital  Research's 
GEM,  IBM's  Topview,  and  Micro- 
soft's Windows.  Even  the  older 
eight-bit  computers,  such  as  the 
Commodore  64,  are  being  updated 
with  visually  oriented  operating 
systems  like  GEOS. 

Those  who  prefer  this  style 
sometimes  say  that  the  best  advan- 
tage of  the  visual  interface  is  that  it 
makes  you  feel  as  if  you  have  a 
tangible  presence  within  the  com- 
puter. Instead  of  viewing  yourself 
as  a  somewhat  remote  user  of  the 
machine,  an  operator  at  a  terminal, 
you  feel  more  like  a  part  of  the 
system.  Your  sense  of  flow  is  en- 
hanced because  you  can  instantly 
recognize  graphic  metaphors  (such 
as  a  picture  of  a  disk)  or  simply  scan 
through  pull-down  menus  to  see 
what  commands  are  available  and 
appropriate. 

A  drawing  program  that  takes 
advantage  of  this  approach  lets  you 
preview  the  figures  you're  drawing 
before  you  actually  set  them  in 
stone  (or  phosphor).  For  instance, 
using  a  mouse  controller,  joystick, 
or  graphics  tablet,  you  can  move 
the   pointing   arrow   across    the 


screen  canvas,  then  click  a  button  to 
set  one  endpoint  of  a  line.  Now,  as 
you  move  the  pointer,  a  "rubber- 
band"  line  is  drawn  between  the 
first  point  and  the  current  cursor 
position.  You  can  move  the  line 
around,  changing  its  orientation 
and  length,  until  you've  put  it  right 
where  you  want  it.  Then  you  press 
a  button  again  to  stamp  it  down.  Of 
course,  if  this  still  isn't  what  you 
want,  an  Undo  command  could  re- 
store the  screen  to  its  former  state. 

If  you've  never  had  a  chance  to 
work  with  pull-down  menus,  you 
might  not  appreciate  their  advan- 
tages. Since  the  menus  let  you  both 
view  and  execute  the  program's 
commands,  they  serve  two  func- 
tions: They  provide  a  way  to  use 
the  program  while  acting  as  built-in 
documentation.  Menus  that  drop 
down  from  the  top  of  the  screen  let 
you  work  with  nearly  the  full 
screen  area,  instead  of  cluttering  it 
up  with  help  screens  or  convention- 
al menus. 

On  the  other  hand,  if  you  pre- 
fer a  written  approach  to  communi- 
cation, you  may  find  the  act  of 
scurrying  around  a  dynamic  screen 
to  be  clumsy  and  inefficient,  partic- 
ularly if  you  have  little  trouble 
memorizing  lots  of  commands  and 
typing  at  least  30  words  per  minute. 
A  program  that  seeks  to  keep  ev- 
erybody happy  can  provide  alter- 
native keyboard  commands  as  well 
as  menus  and  icons. 
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Programming  Menus 

Writing  a  program  which  incorpo- 
rates a  visual  user  interface  can  be 
tricky.  The  newest  Microsoft  BA- 
SICS— such  as  Microsoft  BASIC  for 
the  Macintosh  and  Amiga  BASIC — 
have  built-in  commands  to  create 
and  manage  pull-down  menus. 
Creating  a  menu  is  as  simple  as 
listing  the  text  in  a  series  of  MENU 
statements.  There  are  even  ON 
MENU  GOSUB  statements  which 
set  up  event  traps  (BASIC  inter- 
rupts) to  detect  menu  selections. 
Other  commands,  such  as  ON 
MOUSE  GOSUB,  let  the  program 
read  the  pointing  device  and  re- 
spond to  button  clicks. 

IBM  BASIC  lacks  these  fea- 
tures, but  does  include  event- 
trapping  statements  like  ON  STRIG 
GOSUB  for  the  joystick.  This 
makes  it  possible  to  simulate  the 
operations  which  are  handled  auto- 
matically by  the  newer  BASICs. 
When  the  user  clicks  the  selection 
button  on  the  pointing  device,  the 
program  has  to  check  to  see  if  the 
pointer  is  within  the  menu  bar  (the 
first  line  of  the  screen).  If  so,  it  then 
checks  to  see  if  the  arrow  is  point- 
ing at  one  of  the  menu  titles.  If  so, 
the  program  drops  down  the  menu 
(saving  the  screen  contents  of  the 
area  overwritten  by  the  menu  box), 
and  again  checks  the  pointer  posi- 
tion to  see  which  menu  item  is  be- 
ing pointed  at.  The  program 
highlights  the  item,  and  then  un- 
highlights  it  if  the  pointer  moves 
away  from  the  item.  Finally,  when 
an  item  is  selected  (or  when  the 
menu  selection,  is  canceled),  the 
program  has  to  remove  the  menu 
from  the  screen,  restoring  the 
screen  contents  overlapped  by  the 
menu. 

Again,  all  of  these  details  are 
handled  for  the  programmer  in 
Macintosh  and  Amiga  BASIC.  Nev- 
ertheless, with  enough  program- 
ming, you  can  do  the  same  thing  in 
IBM  BASIC.  The  key  is  being  able 
to  drop  down  a  menu  and  then  later 
restore  the  part  of  the  screen  over- 
lapped by  the  menu. 

BASIC'S  GET  and  PUT  com- 
mands are  the  solution:  GET  is  used 
to  copy  a  rectangular  portion  of  the 
screen  into  a  storage  array,  and 
PUT  copies  the  image  from  the  ar- 
ray back  to  the  screen.  Naturally, 
this    technique    requires    using    a 


graphics  mode,  since  you  can't  GET 
or  PUT  with  the  text  screen.  How- 
ever, with  a  machine  language  rou- 
tine to  buffer  part  of  the  text  screen, 
this  method  could  be  adapted  for 
use  with  a  text-only  display  adapter. 

Simulated  MENU 
Commands 

Screen  Machine  II  demonstrates 
how  this  technique  works.  It  con- 
tains several  subroutines  which 
simulate  the  MENU  commands  and 
event  traps  found  in  Macintosh  and 
Amiga  BASIC.  Fortunately,  you 
don't  have  to  know  about  the  inner 
workings  of  these  subroutines  to 
use  them  in  your  programs.  There 
are  a  few  variables  and  arrays  that 
need  to  be  defined  (some  of  these 
are  initialized  automatically),  but 
you  need  only  three  GOSUBs  to  do 
everything: 

GOSUB  1 1000  is  used  to  add  a 
menu  title  or  menu  item  to  the  list 
of  menus. 

GOSUB  14000,  used  within  a 
loop,  tracks  the  arrow  pointer  and 
continually  checks  for  a  menu  se- 
lection. If  a  menu  is  selected,  it 
automatically  handles  the  mechan- 
ics of  dropping  down  the  menu, 
getting  a  selection,  and  then  restor- 
ing the  screen.  You  then  examine 
the  variables  MNID  (menu  id)  and 
MNIT  (menu  item)  to  see  which,  if 
any,  menu  item  was  selected. 

GOSUB  20000  reads  the  point- 
er position  and  optionally  tracks 
the  cursor  automatically. 

Essentially,  these  subroutines 
are  substitutes  for  the  MENU  com- 
mand, MENU  function,  and 
MOUSE  function  built  into  Macin- 
tosh and  Amiga  BASIC.  Therefore, 
they  can  be  very  handy  for  translat- 
ing Macintosh  and  Amiga  pro- 
grams into  IBM  BASIC. 

A  few  other  useful  subroutines 
let  you  turn  the  cursor  on  or  off  and 
print  text  on  the  graphics  screen  in 
reverse-video.  All  of  these  routines 
let  you  set  variables  to  allow  special 
options  or  fetch  additional  infor- 
mation. Most  importantly,  they  are 
designed  to  be  used  with  any  pro- 
gram, not  just  Screen  Machine  11,  so 
you  can  easily  add  them  to  an  exist- 
ing program  or  use  them  as  a  start- 
ing point  for  your  next  project. 

Screen  Machine  II  is  far  too 
large  to  cover  in  detail,  but  the  list- 


ing below  (Program  1)  is  liberally 
commented  with  REMs.  By  follow- 
ing these  comments  you  can  easily 
deduce  the  flow  of  the  program.  If 
you  didn't  type  in  the  program  last 
month,  you  can  enter  this  listing 
and  omit  the  comments  without  ill 
effect.  (Aside  from  the  remarks,  this 
month's  program  is  identical  to  last 
month's.)  In  fact,  the  remarks  take 
up  too  much  memory  to  allow  the 
program  to  run.  If  you  type  in  the 
program  as  listed,  use  Program  2, 
"REMover,"  to  remove  all  the  re- 
marks to  create  a  runnable  version. 

REMover  can  be  used  to  strip 
comments  from  other  IBM  BASIC 
programs,  too.  When  you  run  RE- 
Mover, first  enter  the  name  of  the 
program  you're  deleting  the  REMs 
from,  followed  by  a  unique  file- 
name for  the  REMless  program  to 
be  created.  You  then  have  two  op- 
tions. Option  1  changes  all  REM 
statements  into  a  single  apostrophe 
(the  abbreviation  for  REM).  This 
preserves  the  line  in  case  it  is  the 
target  of  a  GOTO  or  GOSUB  (nob  a 
problem  with  Screen  Machine  II), 
but  deletes  the  text  of  the  remark. 
Option  2  deletes  all  REM  or  apos- 
trophe statements,  and  if  the  REM 
is  the  only  statement  in  the  line, 
deletes  the  entire  line  as  well.  It's 
not  safe  to  use  Option  2  on  pro- 
grams that  may  branch  to  a  line 
beginning  with  a  remark,  but  it 
works  just  fine  with  Screen  Ma- 
chine II.  Be  sure  you  keep  a  copy  of 
your  unprocessed,  remarked  pro- 
gram for  future  reference. 

Using  Menus  In  Your 
Program 

You  can  detach  the  menu  package 
from  the  rest  of  the  program  either 
by  deleting  everything  except  lines 
10000-21040,  or  by  saving  just  the 
menu  lines  to  disk  as  an  ASCII  file 
suitable  for  merging  with  another 
program.  Just  enter 

LIST  1 0000-21 040,"MENU.PAK" 

to  create  an  ASCII  file  on  disk 
called  MENU.PAK.  You  can  then 
type  MERGE  "MENU.PAK"  to  add 
these  lines  to  an  existing  program. 
If  you  are  starting  from  scratch, 
type  LOAD  "MENU.PAK". 

Before  your  program  can  call 
the  menu  package,  you  need  to  ini- 
tialize certain  variables.  These  vari- 
ables are  shown  in  lines  210-340  of  I 
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the  Screen  Machine  II  listing.  See 
the  section  on  GETXY  below  to  see 
how  to  set  ACC,  DACC,  FROZEN, 
XMAX,  YMAX,  XOFF,  and  YOFF. 
Check  the  section  on  CURSOR— 
ON  and  CURSOR_OFF  for  infor- 
mation on  setting  the  CURSOR 
flag.  Finally,  you  can  choose  sound 
effects  by  setting  SNDFX  to  -1.  If 
you  set  it  to  zero,  no  sound  is  used. 
Lines  9000-9340  illustrate 
how  to  define  your  menu  structure. 
For  example,  the  DATA  statements 
for  the  Picture  menu  are 

DATA  l,0,l,"Piclure      " 

DATA  1,1,1/TJndo  U" 

DATA  l,2,l,"New  "N" 

DATA  l,3,l,"0pen  O" 

DATA  l,4,l,"Save  S" 

DATA  l,5,l,"View  V" 

DATA  l,6,l,"Quit  "Q" 

The  first  number  is  the  menu- 
ID,  the  number  specifying  which 
menu  is  being  defined.  It  must  be  at 
least  1,  and  less  than  9  (unless  you 
change  line  11000  to  allow  more 
than  8  menus  and/or  more  than  8 
items  in  each  menu).  The  next 
number  is  the  menu  item.  A  menu 
item  of  0  defines  the  title  of  the 
menu,  and  other  numbers  specify 
the  name  of  each  item  within  the 
menu.  The  next  number  is  a  sfafus 
flag  for  that  menu  item.  A  value  of  1 
is  normal.  Use  2  to  display  a  check- 
mark next  to  an  item. 

The  Ghost  in  The  Machine 

For  example,  the  Tools  menu  puts  a 
checkmark  next  to  the  currently  se- 
lected tool.  This  allows  a  menu  to 
be  used  to  select  items,  show  which 
commands  are  available,  and  show 
the  status  of  each  menu  item. 

When  you  specify  a  value  of  0 
for  the  menu  status  flag,  that  menu 
item  is  ghosted  out,  or  dimmed.  A 
ghosted  item  is  still  readable,  but 
the  text  is  distorted,  indicating  to 
the  user  that  this  particular  com- 
mand is  currently  disabled  or  not 
appropriate  at  the  current  time. 
This  helps  users  avoid  confusion 
over  what  they  can  and  cannot  do 
in  a  given  situation — they  can  al- 
ways access  a  command  unless  it's 
ghosted  out. 

There  are  many  times  when  a 
program  would  want  to  change 
these  assignments,  depending  on 
program  context.  For  instance,  after 
you  select  a  new  tool,  the  previous 
tool  is  reset  to  a  flag  of  1  (normal), 
and   the   new    item   is    set    to    2 


(checked).  In  the  Preferences  menu, 
some  of  the  menu  items — such  as 
Bkgd  Color — are  ghosted  out  when 
you  are  in  640  X  200  mode  (be- 
cause you  can't  change  the  screen 
color  in  this  mode),  but  revert  to 
normal  when  you  select  another 
graphics  mode. 

Initializing  Menus 

Here  are  descriptions  of  all  the  ma- 
jor routines  in  Screen  Machine  II: 

11000  MENU  To  initialize  or 
change  the  value  of  a  menu  item, 
assign  values  to  the  variables 
MNID,  MNIT,  and  MNSTR$,  then 
GOSUB  11000.  MNID  holds  the 
number  of  the  menu  (1-8);  MNIT 
holds  which  menu  item  is  being 
changed  (0-8,  where  0  is  the  menu 
title);  and  MNSTR$  is  the  text  dis- 
played as  the  menu  title  or  menu 
item.  A  program  can  modify  all  of 
these  items  at  any  time,  changing 
the  appearance  of  the  menu  when  it 
drops  down. 

The  subroutine  at  line  9000  in 
Screen  Machine  II  can  be  used  as  a 
model  for  initializing  your  own 
menus.  This  routine  stores  the  val- 
ues in  the  arravs  MTITLES, 
MFLAGS,  and  MitEMS.  It  stores 
the  number  of  the  highest  menu-ID 
used  so  far  in  TOPID  to  find  out 
how  many  menus  there  are.  The 
one-dimensional  array  MITEMS 
holds  the  number  of  menu  items  in 
each  menu.  MTITLES  and  MFLAGS 
are  two-dimensional  arrays  that  use 
MNID  and  MNIT  to  point  to  the 
title  string  and  flag  setting  for  a 
menu  item.  Hence,  MFLAGS(1,2) 
holds  the  status  flag  value  of  menu 
1,  item  2.  MTITLE$(3,0)  holds  the 
title  of  the  third  menu. 

It  can  be  convenient  to  assign 
values  to  these  arrays  directly — for 
example,  when  you  just  want  to 
change  one  menu  item's  status  flag. 
MFLAGS(3,4)  =  0  would  ghost  out 
the  fourth  item  of  the  third  menu. 
You  could  change  it  back  to  normal 
with  MFLAGS(3,4)=1.  Or  you 
might  want  to  change  the  text  of  a 
menu  entry  by  modifying  the  MTI- 
TLES array.  For  instance,  a  menu 
item  could  initially  read  SOUND 
ON,  then  change  to  SOUND  OFF 
after  you've  turned  on  the  sound. 
This  is  an  alternative  to  using  the 
checkmark,  but  it  can  be  confusing. 
Does  SOUND  ON  imply  that  the 
sound  is  already  on,  or  that  the  item 


will  turn  on  the  sound?  Most  pro- 
grams use  checkmarks  to  avoid  this 
confusion. 

12000  MENU_REFRESH  Use  GO- 
SUB  12000  to  display  the  title  bar  of 
your  menus  after  you've  initialized 
them  after  successive  calls  to  the 
subroutine  at  line  11000.  Your  pro- 
gram should  try  to  avoid  using  the 
top  line  of  the  screen,  but  you  can 
always  use  GOSUB  12000  to  redis- 
play the  menu  bar  if  the  top  line  is 
lost.  This  routine  also  links  in  the 
positions  of  each  menu  item  so  that 
the  MENU-POLL  routine  (line 
14000)  can  figure  out  which  menu 
you  are  pointing  at.  These  positions 
are  stored  in  the  MX  array. 
13000  RVSMSGS  There  is  no  easy 
way  to  print  reverse-video  text  on 
the  IBM  graphics  screen,  but  this  is 
the  effect  we  want  when  we  high- 
light a  menu  title  or  menu  entry. 
The  menu  bar  is  also  printed  in 
reverse.  To  display  reverse  text,  set 
MSG$  to  the  text  you'd  like  to 
PRINT,  then  GOSUB  13000.  This 
routine  prints  the  text,  uses  GET  to 
copy  the  text  into  an  array,  then 
uses  the  PRESET  option  of  PUT  to 
stamp  down  a  reverse  copy  of  the 
text. 

14000  MENU-POLL  This  is  the 
workhorse  of  the  menu  package. 
When  you  call  this  routine,  it 
checks  to  see  if  the  pointer  is  point- 
ing at  a  menu  title  and  the  button  is 
pressed.  If  not,  it  just  RETURNS, 
leaving  the  variables  MNID  and 
MNIT  set  to  0.  Otherwise,  it  drops 
down  the  menu,  gets  the  selection, 
and  exits  with  MNID  and  MNIT  set 
to  the  value  of  the  menu-ID  and 
menu  item.  If  the  user  canceled  the 
selection  by  moving  outside  of  the 
menu  box,  MNIT  and  MNID  are 
reset  to  0. 

This  routine  uses  simple  sound 
effects  as  additional  audio  cues  for 
the  user.  If  you  set  the  variable 
SNDFX  to  0,  you  won't  get  sound 
effects.  If  you  want  them,  set 
SNDFX  to  -1. 

This  routine  also  preserves 
your  screen  display  and  cursor  po- 
sition. If  the  keyboard  is  used  for 
menu  selection,  the  keyboard  offset 
(see  below)  is  increased  to  speed  up 
movement  between  menu  items. 

Be  aware  that  this  routine 
works  like  INKEY$— if  there  is  no 
menu  selected  yet,  it  immediately 
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RETURNS.  You  need  to  continually 
call  this  routine  within  a  loop  until 
MNIT  is  nonzero,  meaning  that  a 
menu  has  been  selected.  The  cursor 
arrow  is  updated  automatically 
throughout  the  menu  selection  pro- 
cess. Even  if  no  menu  is  selected, 
calling  this  routine  continually  calls 
the  GETXY  routine  at  line  20000  to 
update  the  cursor  position. 
15000  This  subroutine  is  used  only 
by  MENU-POLL  to  flash  a  selected 
menu  item. 

16000  MENU_DOWN  Given  a 
value  in  MNID,  this  routine  drops 
down  the  indicated  menu,  saving 
the  screen  contents  erased  by  the 
menu  in  the  MSAVE%  array  (ini- 
tialized in  line  11010).  This  routine 
is  really  only  called  by  the  MENU- 
POLL  routine  when  a  menu  has 
been  selected,  but  you  may  be  able 
to  use  it  for  some  special  effects.  To 
remove  the  menu,  be  sure  to  use 
the  next  routine,  MENU^WAY, 
to  discard  the  menu  and  restore  the 
screen  contents. 

17000  MENU_AWAY  Again,  this 
is  really  only  used  by  MENU- 
POLL  to  roll  away  the  menu  after 
the  user  has  made  a  selection.  You 
can  use  it  to  remove  the  menu  and 
restore  the  screen  if  you  used 
MENU— DOWN  to  drop  the  menu 
yourself. 

Cursor  Routines 

18000  CURSOR-ON 
19000  CURSOR_OFF  The  arrow 
pointer  is  defined  in  this  program  in 
the  subroutine  at  line  3000,  used  to 
select  various  graphics  modes.  You 
could  excerpt  line  3050  (as  long  as 
you  remember  to  DIM  ARROW% 
(32)  at  the  start  of  your  program)  to 
use  this  cursor  in  your  own  pro- 
gram. Otherwise,  draw  your  cursor 
on  the  screen  and  use  GET  (xl,yl)- 
(x2,y2),ARROW%  to  copy  the  cur- 
sor into  the  ARROW%  array  (xl,yl, 
and  x2,y2  are  opposite  endpoints  of 
an  imaginary  rectangle  that  should 
completely  enclose  the  cursor 
shape).  The  GETXY  routine  (20000) 
needs  to  know  the  width  and 
height  of  the  cursor,  so  store  these 
values  in  XARROW  and  YARROW. 
The  cursor  is  animated  with 
the  XOR  option  of  PUT.  When  you 
PUT  the  arrow,  it  combines  itself 
with  the  existing  screen  display  so 
that  it  is  always  in  contrast.  Just 


think  of  the  cursor  as  a  stamp  that 
uses  "negative  ink" — ink  that  re- 
verses the  color  of  anything  it 
touches.  For  example,  a  white  ar- 
row on  a  black  background  would 
be  white,  but  on  a  white  back- 
ground would  be  black.  The  magic 
of  XOR  is  that  when  you  PUT  the 
shape  back  down  on  top  of  itself,  it 
reverses  the  action,  removing  the 
arrow  and  restoring  the  previous 
screen  contents.  Although  PUT 
with  XOR  can  be  flicker-prone,  you 
can  reduce  the  flicker  by  increasing 
the  delay  between  drawing  the  ar- 
row and  erasing  it. 

You  don't  have  to  worry  about 
updating  the  arrow  cursor  yourself. 
As  long  as  you  continually  call 
either  MENU-POLL  (14000)  or 
GETXY  (20000),  the  arrow  position 
is  updated  while  the  routine  is 
checking  the  pointer  position.  But 
you  have  to  remember  to  remove 
the  arrow  from  the  screen  before 
you  draw  anything  that  might  over- 
lap the  arrow.  If  you  drew  a  white 
line  through  the  cursor  while  it  was 
resting  on  a  white  area,  you've 
drawn  a  white  line  through  the 
black  arrow.  When  the  arrow  is 
PUT  back  on  top  of  itself  to  erase 
the  arrow,  the  conditions  are  no 
longer  the  same.  The  cursor  revers- 
es itself,  so  the  cursor  is  gone,  but 
you're  left  with  a  black  line  where 
the  cursor  used  to  be  (remember  the 
"negative  ink"  analogy). 

Therefore,  your  program  needs 
to  erase  the  cursor  from  the  screen 
before  drawing  anything.  After 
you've  drawn  your  figure,  you  can 
turn  the  cursor  back  on,  or  just 
allow  GETXY  (20000)  to  turn  it 
back  on  automatically  the  next  time 
you  check  for  the  cursor  position. 

So  use  GOSUB  19000  to  turn 
off  the  cursor,  and  GOSUB  18000  to 
turn  it  back  on.  This  is  not  the  same 
as  setting  the  CURSOR  flag  (see 
GETXY  below).  The  CURSOR  flag 
prevents  or  enables  automatic  cur- 
sor updates,  but  doesn't  graphically 
affect  the  display.  However,  you 
should  turn  off  the  cursor  with  GO- 
SUB 19000  before  you  turn  off  the 
cursor  flag.  If  this  seems  confusing, 
examine  the  drawing  routines  in 
Screen  Machine  II  (lines  1000- 
1660)  to  see  how  this  is  done. 
20000  GETXY  This  routine  is  the 
core  of  the  whole  package.  It  is  used 
any  time  a  routine  wants  to  know 


where  the  cursor  is  pointing.  As 
part  of  the  normal  checks  for  the 
joystick  position,  it  can  also  update 
the  cursor  automatically.  To  get 
automatic  cursor  tracking,  be  sure 
to  set  the  CURSOR  flag  to  -1; 
otherwise  you  are  responsible  for 
your  own  cursor  movement.  For 
use  with  a  joystick  or  graphics  tab- 
let, this  routine  converts  the  joy- 
stick/tablet values  to  actual  screen 
positions  by  multiplying  the  con- 
troller position  times  the  values 
XRATIO*  and  YRATIO#. 

XRATIO#  and  YRATIO#  are 
the  horizontal  and  vertical  size  of 
the  screen  divided  by  the  maximum 
X  and  Y  values  of  the  controller  (the 
lower-right  position).  When  multi- 
plied by  the  joystick  value,  these 
values  scale  the  joystick  values  to 
actual  screen  coordinates.  A  range 
of  0-255  multiplied  by  1.251 
(319/255)  gives  us  a  range  from 
0-319. 

Set  XRATIO#  to  the  horizontal 
size  of  the  screen  divided  by  the 
maximum  value  of  the  controller.  If 
the  maximum  value  of  the  joystick 
is  132,  and  you're  working  with  the 
320  X  200  mode,  then  XRATIO# 
=  320/132.  Similarly,  YRATIO#  is 
the  number  of  rows  divided  by  the 
maximum  vertical  position  of  the 
controller,  as  in  YRATIO#  =  200/ 
130, 

Reading  The  Pointing 
Device 

XOFF  is  the  minimum  horizontal 
value  of  the  joystick,  and  YOFF  is 
the  smallest  vertical  value  returned 
by  the  joystick.  You  can  test  this  by 
pushing  the  joystick  to  the  upper- 
left  corner,  then  executing  PRINT 
STICK(O),  STICK(l).  Similarly,  you 
can  move  the  joystick  to  the  lower- 
right  corner  and  PRINT  STICK(O), 
STICK(l)  to  assign  default  values  to 
XMAX  and  YMAX  as  shown  in 
lines  230  and  240.  Screen  Machine 
II  illustrates  how  to  set  these  values 
in  the  screen  setup  routine  at  line 
3000.  Also,  the  Calibrate  function 
from  the  Preferences  menu  (refer  to 
lines  2440-2510)  is  used  to  read  the 
values  of  XMAX,  YMAX,  XOFF, 
and  YOFF. 

XOFF  and  YOFF,  the  minimum 
(top-left)  values  of  the  controller, 
are  used  to  adjust  the  calculations, 
as  well  as  to  check  whether  a  stylus 
is  pressed  against  a  graphics  tablet 
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surface.  For  example,  the  KoalaPad 
usually  returns  7  and  7  as  its  X  and 
Y  values  when  there  is  no  surface 
contact.  This  can  be  used  as  a 
convenient  shortcut.  While  in 
drawing  mode,  for  example,  you 
start  drawing  by  clicking  the  but- 
ton, and  stop  drawing  by  either 
clicking  the  button  again,  or  simply 
moving  the  stylus  off  the  tablet 
surface. 

Another  note  about  the  Koala- 
Pad:  It  is  extremely  sensitive  to 
glitches  unless  you  bear  down  on 
the  tablet  with  firm  pressure.  Un- 
fortunately, pressing  too  hard  will 
score  the  tablet  surface.  If  you  don't 
press  hard  enough,  the  values  jitter 
uncontrollably.  Fortunately,  BASIC 
is  too  slow  to  notice  most  of  these 
glitches,  which  occur  for  a  fraction 
of  a  second  before  the  values  reset 
to  normal.  If  you  compile  the  pro- 
gram, though,  it  is  much  more  sen- 
sitive to  these  glitches.  An 
averaging  routine  could  be  used  to 
detect  the  glitches  and  ignore  them, 
but  would  greatly  slow  down  the 
uncompiled  program. 

For  keyboard  control,  GETXY 
allows  the  cursor  keys  to  be  used  to 
move  the  cursor.  If  the  keyboard 
was  used  instead  of  the  controller, 
the  variable  KEYMODE  is  set  to 
—  1;  otherwise  KEYMODE  is  reset 
to  0  when  the  joystick  or  graphics 
tablet  is  used. 

Cursor  movement  can  be  very 
slow,  though,  if  you  are  moving 
only  one  pixel  at  a  time.  You  must 
set  the  variable  DACC  to  the  num- 
ber of  pixels  you'd  like  the  pointer 
to  move  each  time  a  cursor  key  is 
pressed,  and  initialize  the  variable 
ACC  to  this  value.  If  the  key  is 
pressed  successively  or  held  down 
until  it  repeats,  ACC  counts  up, 
accelerating  the  speed  of  the  arrow 
cursor.  When  the  key  is  released  or 
a  different  key  is  pressed,  ACC  is 
reset  to  the  value  of  DACC, 

On  the  other  hand,  if  DACC  is 
a  negative  quantity,  no  acceleration 
is  performed.  Every  keypress  just 
advances  the  cursor  by  the  absolute 
value  of  DACC  (as  if  it  were  posi- 
tive). You  can  change  these  values 
throughout  your  program  depend- 
ing on  the  context.  The  MENU- 
POLL  routine  sets  DACC  to  -8 
during  menu  selection  so  that  the 
cursor  keys  move  by  one  screen  line 
at  a  time  without  accelerating. 


Reading  The  Keyboard 

If  the  flag  FROZEN  equals  -1,  the 
joystick  or  graphics  tablet  is  ignored 
in  favor  of  the  keyboard.  Do  this 
when  you  need  keyboard  control 
while  the  joystick  is  plugged  in. 
Although  the  keyboard  is  always 
active,  it  attempts  to  increment  or 
decrement  the  values  of  MX  and 
MY,  but  these  variables  are  contin- 
ually reset  to  the  scaled  value  of  the 
joystick  position.  With  the  graphics 
tablet,  we  can  tell  if  the  stylus  is 
pressed  down  and  ignore  the  tablet 
position  if  it  isn't.  So  the  keyboard 
and  tablet  work  interchangeably, 
but  you  need  to  set  FROZEN  to  —  1 
if  you  want  keyboard  control  only 
while  ignoring  the  joystick. 

Line  20050  checks  for  key- 
board equivalents  that  indirectly 
activate  menu  entries.  Most  com- 
mands in  Screen  Machine  II  have 
keyboard  equivalents — O  for 
Open,  L  for  Lines,  CTRL-N  CN)  for 
New,  etc.  In  addition  to  streamlin- 
ing the  program  for  advanced  us- 
ers, keyboard  commands  satisfy 
those  who  are  uncomfortable  with 
pointing  and  clicking.  If  you  don't 
mind  memorizing  every  keystroke, 
you  don't  really  need  menus.  How- 
ever, not  every  menu  item  is  always 
represented  by  a  keystroke,  and  it's 
hard  to  find  unique  assignments  for 
every  menu  item. 

You  really  don't  need  to  bother 
with  keyboard  equivalents,  but  if 
you  want  them,  initialize  the  string 
CMS  as  illustrated  in  line  9060.  For 
each  keyboard  equivalent,  include 
the  keyboard  character  followed  by 
the  digit  of  the  menu-ID  and  the 
digit  of  the  menu  item  for  that 
menu  selection.  This  limits  you  to 
nine  menus  and  items,  but  makes 
keyboard  checking  quick.  INSTRS 
is  used  to  instantly  find  out  if  the 
command  key  is  part  of  CM$,  and 
just  as  easily  retrieve  the  subse- 
quent values  of  MNID  and  MNIT, 
Strictly  speaking,  this  line  does  not 
really  belong  in  GETXY,  but  we 
need  it  here  to  use  the  same  key- 
stroke that  GETXY  uses  to  check  for 
a  cursor  key. 

Study  the  program  listing  for 
more  ideas.  Since  nearly  every  line 
is  commented,  it  should  be  easy 
enough  to  follow.  We  would  be 
interested  in  seeing  the  kinds  of 
programs  you  develop  using  these 
techniques. 


Quick  Reference  To  Subroutines 

12000  MENU-REFRESH 

Uses  MNID,  MNIT,  and  MNSTRS  to  ini- 
tialize a  menu  item, 
MNID:  Which  menu 
MNIT:  Which  menu  item 
Fills  the  arrays  MTITLESC ),  MFLAGSC ), 
MITEMS( ) 

13000  RVSMSG$ 

Diplays  MSG$  in  reverse  video  at  current 
cursor  position. 

14000  MENU-POLL 
If  a  menu  item  is  found,  returns  menu-ID 
in  MNID  and  menu  item  in  MNIT;  other- 
wise MNID-0  and  MNIT=0. 

18000  CURSOR_ON 

if  the  cursor  flag  is  set  (CURSORoO), 
draws  pointer  cursor  and  tells  the  package 
that  the  cursor  is  on  the  screen  by  setting 
T0GGLE=1. 

19000  CURSOR_OFF 
If  the  cursor  flag  is  set  (CURSORoO),  re- 
moves pointer  cursor  from  screen  and  tells 
the  package  that  the  cursor  is  not  on  the 
screen  by  setting  TOGGLE— 0. 

20000  GETXY 

Polls  keyboard  and  optionally  the  joystick 
(if  FROZEN =0).  See  text  for  necessary  ini- 
tialization. Returns  MX,  MY,  MB  (mouse/ 
joystick  position  and  button  status).  If 
CURSOR  flag  is  nonzero,  automatically 
updates  an  arrow  cursor  at  position  MX, 
MY. 


For  instaictions  on  entering  these  listings, 
please  refer  to  "COMPUTEI's  Guide  1o  Typing 
In  Programs"  in  ttiis  Issue  of  compute!. 

Program  1 :  The  Screen 
Machine  II 


'Screen  Machine  II 

"Requires  CGA  or  PCjr,  AB 

ASIC  2.K    or  Cartridge  EflS 

IC 

DEFINT  A-Z 

'Test  for  PCjr 

PCJR=0:DN  ERROR  GOTO  150: 


•i? 

100 

SB 

lie 

Kll 

120 

CP 

130 

H 

140 

JF 

150 

3J 

160 

HC 

170 

OL 

180 

Hfi 

190 

K 

200 

SOUND  OFF: CLEAR 


J276B ! 


: DEFINT  A"Z:PCJR=-1 

IF  NOT  PCJR  THEN  RESUME  1 

60 

ON  ERROR  GOTO  0 

'Constants  used  by  menuin 
g  package: 


To  compile  ttiis  program, 
refflove  apostrophe  from  f 

Dllowing  line,  delete  lin 

e    11010 
OK  210  'DIM  MTITLE*(B,S) ,MFLAGS( 

8,B)  ,MITEMS(8)  ,MSAVE7.(160 

8)  ,iiix  tB):TOPID=0 
HF  220  DIM  ARRDW7.(32)  ,ZZTEMP7.(64 

B)  'reserve  itiemary  -for  cu 

rsor,  temp  use 
nJ  230  'Xt1AX  =  100:  YMAX=100:XOFF=3 

:Y0FF=3   'recommended    -for 

ioystick. 
FF   240    XMflX=250:YliAX=230:)(DFF=7: 

Y0FF=7    'recommended    -for    u 

se   with   touch    tablet 
HH   250    HIGHLIGHT=2    '#   of    flashes 
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when  menu  item  selected 
00  260  TRUE  =  -1:CLIRSDR=TRUE  '  enab 
les  automatic  arrow  cur so 


«P  270 
BP  280 

n  290 

KH  300 

CK  310 

HH  320 

IP  330 

5D  340 


HA  350 

LH  360 

HE  370 

FI  380 


KEY  OFF:SCREEN  0,0,0:WIDT 
H  40: COLOR  , 1 , 1 : CLS: LOCftT 
E  4,ll,0:CaLOR  12:PRINT  '■ 
SCREEN  MfiCHINE  II" 
LOCATE  7,12:C0LDR  10:PRIN 
T"CharlBS  Brannan" 
COLOR  14: LOCATE  13, 10:PRI 
NT"Dne  jnDment,  please..." 
BQSU8  9000  ' initial i;e  th 
e  menus 
SMODE=l:COLR=i: SOSUB  3000 

'sets  up  screen,  XRES,YR 
EB, MfiXCOLOR, BWIDTH, fiRROWX 

cursor 
SNDFX=TRUE  'set  to  non-ze 
ro  -for  sound  effects 
ACC=1:DACC=1  ' DACC  is  ttpi 
xels  moved  per  keystroke. 

If  negative,  makes  keybo 
artJ  movement  constant,  el 
SB    allows  acceleration 
FRDZEN=0   'if  frazen=true 

(-1),  joystick  or  touch 
tablet  is  ignored  in  favo 
r  of  keyboard  input 

'Program  starts  here 


CDLR=1:TDDL=1  'current  co 
lor,  drawing  action 

OP  390  STRIG  ON  'enable  mouse  bu 
tton 

IS  400  MX=XRES/2:f1Y=YRES/2:NX=MX 
:NY=MY:60SUB  1B000  'turn 
on  cursor  initially 

}}   410  DIM  UNDOy.(15000)  'buffer 
portion  of  screen 


HL  420 
FJ  430 
HP  440 
EI  450 

BN  460 
CB  470 


LF  4B0 
!H  490 
6P  500 

3H  510 

Ell  520 
HD  530 
CD  1000 


HH  1010 
K    1020 

tC  1030 

JC  1035 

LS  1040 

U  1045 

K  1050 
NF  1060 
f    1070 

CH  1080 


'Main  loop: 

WHILE  TRUE  'i.e.  forever, 

if  true=— 1 

GDSUB  18000: MB=0: MM ID=0 

WHILE  MNID=0  AND  MB=0  'w 
hile  there's  no  menu  sel e 
ction  and  no  button  press 
GQSUB  14000  'poll  menus 

WEND 

IF  MBO0  THEN  OOSUB  1000 

'  draw 

IF  MNID  THEN  GDSUB  2000 
'process  menus 
MEND 

WHILE  MB: GDSUB  20000; WEN 
D  'wait  for  button  relea 
se 

GOSUB  19000  'turn  off  cu 
rsor 

IF  MY>=CY  THEN  COLR=INT( 
MX / XRIt ):  GDSUB  6000;  RETUR 
N 

GET  (1,8)-(XRES-2,CY-1), 
UNDOX  'save  screen  in  un 
do  buffer. 

SCM«=CM$:Cf1*=""  'tempora 
rily  disable  keyboard  co 
mmands 

DN  TOOL  GOSUB  1070,1170, 
1300, 1430, 1560, 1630 
CM«=5CM*  'restore  keyboa 
rd  commands 
RETURN 

'Drawing  routine 
IF  PENUP  AND  NOT  KEYMODE 
THEN  RETURN  'drawing  on 
ly  works  with  pen  down 
CURSDR=0  'disable  cursor 
for  faster  drawing 


Fit 

1120 

PJ 

1130 

HC 

1140 

J!i 

1150 

DO 

1160 

hN 

1170 

IF 

1100 

11 

1190 

£fl 

1220 

?f 

1230 

PJ 

1240 

CL 

1250 

ED 

1260 

IH 

1270 

JH 

1280 

FL 

1290 

Cf 

1300 

LO 

1310 

OF 

1320 

if-    1090  WHILE  t-!B=i3  AND  (NOT  PENU 

P  OR  KEYMODE; 
E;  1100  SX=MX:SY=MY:  GDSUB  20000: 
MY=-MY*(MY>7  AND  MY<CY>- 
3* (MY<a)-(CV-L)*(MY>=CY) 
Lh  1110  LINE  (SX,SV3-(riX,MY),CDL 
R  "connect  the  line 
WEND 

WHILE  MB: GOSUB  20000: WEN 
D  'wait  for  button  relea 
se 

CURSOR=TRUE 
RETURN 
'Draw  lines 

SX=MX:SY=MY:CURSOR=0  'di 
sable  cursor  during  line 

drawing 
WHILE  MB=Ul 

LINE  (SX,SV)-(MX,riY)  ,0 
'erase  previous  line 
35  1200   BDSUB  20000:  M¥  =  -MY*  (MY  > 
7  AND  MY<CY)-8* (MY<8)-(C 
Y-1)«(MY>=CY) 
BL  1210   LINE  (SX,SY>-(MX,ny) ,CD 
LR  'draw  new  line 

EX-MX;EY=MY 
WEND 

WHILE  MB:  GOSUB  20iili?0:WEN 
D  'wait  for  button  relea 
se 

PUT  (1,8)  ,UNDD7.,PSET  're 
store  mangled  screen 
LINE  (SX,SY)-(EX,EY; ,CCL 
R  'draw  final  line 
CURSOR=TRUE 
RETURN 
'Draw  bOKes 

BX=MX:SY=MY:CURBOR=0  'di 
sable  cursor 
WHILE  MB=0 

LINE  CSX.SY) -(riX,MY)  ,0, 
B  'erase  previous  box 
PB  1330  GDSUB  20000:  MY=-MY*  (MY> 
7  AND  MY<CY) -S« (MY<8)-(C 
Y-1)»{MY>=CY) 
to  1340  LINE  (SX,SY1-(MX,MY)  ,C0 
LR,B  'draw  new  box 

EX=MX:EY=MY 
WEND 

WHILE  MB: GDSUB  20000: WEN 
D  'wait  for  button  relea 
se 

PUT  (1,8)  ,UNDQ7.,PSET  ^re 
store  mangled  screen 
LINE  (SX,SY)-(EX,EY) ,CDL 
R,B  'draw  final  line 
CURSOR=TRUE 
RETURN 

'Draw  circles 
SX=MX:SY=MY:CURSOR=0  'di 
sable  cursor 
WHILE  MB=0 

CIRCLE  tSX.SY) ,SQR(ABS( 
SX-MX)-^2  +  ABS(SY-MY)'-2)  ,0 
an  1460   GOSUB  20000:  MY=-MY»  (MY,> 
7  AND  MY<CY)-S« (MY<8)-{C 
Y-1)»(MY>=CY) 
NP  1470   CIRCLE  (SX  ,  SY)  ,  SDR  { AB5  ( 
SX-MX)'-2+ABS(SY-MY)''2)  ,C 
OLR 
FE  1480   EX=MX;EY=MY 
6f  1490  WEND 

fl  1500  WHILE  MBjBOSUB  20000:  WEN 
D  'wait  for  button  relea 
se 
H    1510  GDSUB  3000: PUT  (1,B),UND 
07.,PSET  -'restore  mangled 
screen 
Jfl  1520  CIRCLE  (SX,SY) ,SQR(ABS(S 
X-EX)"2+ABSCSY-EY)"2) , CO 
LR 
CL  1530  CURSOR=TRUE:GDBUB  12000: 
GOSUB  6000  'redraw  scree 


FL 

1350 

6K 

1360 

OJ 

1370 

C6 

13B0 

Lfi 

1390 

HH 

1400 

16 

1410 

OB 

1420 

Ifl 

1430 

flj 

1440 

PB 

1450 

n  bar  and  color  bars  in 
case  circle  overwrote  it 
Je  1540  RETURN 
ON  1550  'Spray  can 
Gl  1560  WHILE  MB=0  AND  (NOT  PENU 

P  OR  KEYMODE) 
JE  1570   GOSUB  20000:  IF  MY<12  OR 

MY>CY-5  THEN  1590 
56  1580   GOSUB  19000:PSET  (MX  +  4- 

8»RND, MY+4-B«RND) , COLR 
5H  1590  WEND 
01  1600  WHILE  MBrGOSUB  20000;WEN 

D 
JK  1610  RETURN 
LO  1620  'Paint 

M«  1630  DN  ERROR  GOTO  1660:  PAINT 
(MX,MY) ,CDLR:LINE  (0,0) 
- ( XRES-1 , YRES-1 > , , B: GOSU 
B  6000: GDSUB  12000 
F4  1640  ON  ERROR  GOTO  0:WHILE  MB 
: GOSUB  20000: WEND  'relea 
se 
;(j  1650  RETURN 
M  1660  RESUME  NEXT 
BC  1670  'Menu  handler: 
6f  2000  DN  MNID  GOSUB  2030,2320, 
2380  'Picture,  Tools,  Sc 
reen 
•?  2010  RETURN 
00  2020  "Fl  le  menu 

K  2030  DN  MNIT  GOSUB  2060,2080, 
2100,2170,2240,2300  ' Und 
o, New, Open, Save, View, Qui 
t 

RETURN 
•Undo; 

60SUD  19000: PUT  (1,8), UN 
DO"/.,  PSET:  RETURN 
'New: 

GDSUB  3000: RETURN 
'  Dp  en : 

TYP*="DPEN": GOSUB  4000  ' 
get  filename 
IF  FILENAME«=""  THEN  213 
0 

ON  ERRDR  GOTO  5500: DEF  S 
E6=SEBADR:BL0AD  FILENAME 
«,0 

ON  ERROR  GOTO  0:CLO5E#1 
LINE  (0,0)-(XRES-l, YRES- 
11,,B: GDSUB  12000: EDSUB 
60!30 
RETURN 
' Save: 

TYP*="SAVE": GOSUB  4000  ' 
get  filename 
IF  FILENAME*.=  ""  THEN  221 
0 

GET  (1,B)-(XRES-2,CY-1) , 
UND07.:CLS:PUT  (1,8),  UNDO 
"/.jPSET 
Ol  2200  ON  ERRDR  GOTO  5500:  DEF  S 
EG=SEBADR:BSAVE  FILENAME 
*,0,SCRLENf 
KP  2210  ON  ERRDR  GOTO  0:CLOSE#1: 
GOSUB  3000: PUT  (1,8), UND 
D-/.,PSET 
IE  2220  RETURN 
Nil  2230  'View: 

DF  2240  GDSUB  19000:  CURSOR=0 
ED  2250  GET  ( 1 ,  8)  -  (  XRES-2,  CY-1  >  , 
UNDO"/.:  CLS:  PUT  (1,8),  UNDO 
•/..PSET 
HB  2260  WHILE  MB=0:  GOSUB  20000:  W 

END 
06  2270  WHILE  MB:  80 SUB  20000:  WEN 

D 
nF  2280  EOSUE  3000:  PUT  (1,8),  UND 
OX, PSET : CURSORS- 1 : RETURN 
KD  2290  'Quit 
C«  2300  SCREEN  0,0,  0,0:  END  'use 

SYSTEM  to  exit  to  DOS 
KK  2310  'Tools  menu 


JI 

2040 

16 

2050 

Ar 

2060 

EO 

2070 

HE 

2080 

IH 

2090 

KB 

2100 

OJ 

2110 

K 

2120 

;: 

2130 

C' 

2140 

J!i 

2150 

ES 

2160 

Hf 

2170 

NA 

21B0 

fll 

2190 
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ID  2340 
HS  2350 


IE  23&0 
FJ  2370 
NF  23B0 

PK  2390 


Bn  2400 
If  2410 
GF  2420 


BE  2430 
fift  2440 


KF   2320    MFLftGS(MNID,TDOL)=l     'tur 

n    a-ff    previous    tool 
K   2330    riFLflGS{MNID,MNlT)=2:T0QL 

=MNIT  'turn  on  current  t 

ool 

RETURN 

STOP  *pratec:t  subroutine 

s  from  accidental  execut 

ion 

'Screen: 

IF  MNIT<4  THEN  5M0DE=MNI 
T-2t <MNIT=3) :GOSUB  3000 
IF  riNIT=4  THEN  COLOR  ,1: 
MFLAGS  <MNID, 4) =2 : MFLABS  C 
MNID,5)=1 

IF  MNIT=5  THEN  COLOR  ,2: 
MFLflGS (MNID, 4) =1 : MFLAGS  C 
MNID,5)=2 

IF  MNIT=6  THEN  BG=(BB+1) 
ftND  15: IF  SMODE-l  THEN 
COLOR  BG  ELSE  COLOR  , BG 
IF  MNIT=7  THEN  FRDZEN=NO 
T  FROZEN:MFLAGS(MNID,MNI 
T)=1-FR0ZEN 
IF  nNITOa  THEN  RETURN 
60SUB  19000:  LOCATE  l,I:ri 
SS*=LEFT»("Move  stick  to 
upper  le-ft,  press  butta 
n. "+SPACE*<80) .SWIDTH) :G 
OSUB  13000 

WHILE  STRIG(1)=0:XOFF=ST 
ICK(0):YDFF=STICK(I) : WEN 
D 

WHILE  STR1G(1)<>0:WEND  ' 
Mait  for  release 
LOCATE  1,  i:MS6*=LEFT»C'M 
ove  stick  to  lower  right 
,  press  button. "+SPACE$ ( 
80), SWIDTH) :G03UB  13000 
WHILE  STRI6C1)=0:XMAX=ST 
ICK(0) :YMflX=STICK(l) : WEN 
D 

WHILE  STRI6(1)<>0:WEND  ' 
wait  for  release 
XRATID#=XRES/XMAX: YRATIO 
#=YRES/YMAX 
60SUB  12000: RETURN 
'Set  up  a  screen,  given 
XRES, YRES, PCJRMODE 
GOSUB  19000  'turn  off  cu 
raor 

IF  SMODE=PMODE  THEN  3030 
ON  SHODE  GOSUB  3110,3150 
,3030,3030,3190 
PMODE=SMODE 

SWIDTH=INT(XRES/8) : XRATI 
0#=XReS/XMAX:YRATIO#=YRE 
S/YMAX  'screen  width 
CLS:PSET  (10, 10): DRAW  "b 
ml0, 10d3E313f5":GET  (10, 
10) -(17,  17}  .ARROW/.  'ere 
ate  cursor 

XARROW=a:YARROW=B  'horis 
ontal  and  vertical  size 
of  cursor 

CLS:LINE  (0, 0) - (XRES-1 , Y 
ReS-l),,B  'border 
GOSUB  6000: GOSUB  12000 
RETURN 


IJ  2450 

NJ  2460 
FO  2470 

UK  2400 

Ht   2490 

IK  2500 

IF  2510 
KA  2320 

NS  3000 

KD  3010 
KD  3020 

CP  3030 
m   3040 

PE  3030 

HE  3060 

JO  3070 

PC  3080 

ei  3090 

HP  3100 

DD  3110 


SCREEN  1: COLOR  0, 1 : COLR= 

1 : XRES=320: YRES=200: BG=0 

:MAXC0L0R=4 
HS  3120  GOSUB  3230:  MFLAGS  (3,  1 )  =2 

:  SESADR=S:HBS00:  SCRLEN :  =1 

63B4 
Pi   3130  MFLAGS  (3,  4)  =2:  MFLAGS  (3,  5 

)=1:MFLA6S(3,6)=1 
JL  3140  RETURN 
BN  3150  SCREEN  2:  XRES=640:  YRES=2 

00: MAXC0LOR=2: C0LR=1 
J5  3160  GOSUB  3230:MFLA6S!3,2)=2 


::■  3170 

JH  3180 
JH  3190 

F£  3200 


KB  3210 

IK  3220 
JP  3230 


i'   3240 
EG  4000 


JC  4010 
JP  4020 

HD  4030 

P6  4040 
IP  4050 


PK 

4060 

JO 

4070 

9N 

4080 

OP 

5000 

SB 

5010 

EE 

5020 

PF 

3030 

DC 

5040 

KH 

5050 

51  5060 

JE  5070 

SB  5080 

HL  5500 

FE  5510 


K   3320 


PK  5530 


JF  S540 


:  SEGAI>R=S(HBa00:  SCRLEN  1  =  1 

63B4 

MFL ABS ( 3 , 4 ) =0 : MFLAGS (3,5 

)=0: MFLAGS (3, 6>=0 

RETURN 

SCREEN  5:XRES=320: YRES=2 

00: MAXC0L0R=16: CDLR=1 

GOSUB  3230:MFLAGBC3,3)=2 

: SEGADR=&H1900: SCRLEN ' =3 

2768! 

MFLASS  (3,  4  t  =0:  MFLAI3S  C3,  5 

)=0:MFLABS(3,6)=1 

RETURN 

MFLAGS ( 3 ,  1 )  =  1 1 MFLAGS (3,2 

; =1 ; MFLAGS (3, 3) =-PCJR: RE 

TURN  'reset  modes 

'Get  a  filencime... 

GOSUB  19000:6ET  (l,a)-(X 

RES-2 ,  C Y-  n  ,  UND07.  '  save 

screen 

MSGl*="Please  enter  name 

":  MSG2t="c-f  picture  to  " 

+TYPt 

TW=SWIDTH/2-10:LINE  (TWt 

B-10,50)-(TW«8+160, IBB) , 

0,BF:L1NE  <TW*S-10, 50) - ( 

TW*a+160, 100) , ,B:LINE  (T 

Wt8-B,52)-(TW»a+15a,9S) , 

,B  'draw  bo;< 

LOCATE  8,SWIDTH/'2-LEN(MS 

B1«)/2:PRIIMT  MSBlSiLOCAT 

E  9,SHIDTH/2-LEN(MS62*)/ 

2: PRINT  MS62* 

LINE  (TW«8-5,7B)-(TW*8+1 

55, B9) , ,B: LOCATE  li,TH+l 

:MAXLEN=18:B0SUB  5000 

FILENAME«=EDT$: IF  FILENA 

ME«>""  THEN  IF  MID*(EDTt. 

,LEN(EDT$)+3«(LEN(EDT«) > 

3),  DO"."  THEN  FILENAME 

*=FILENAMES+".PI"+CHRS(4 

B+SMDDE) 

PUT  (1,8) ,UNDOX,PSET  're 

store  screen 

RETURN 

'Get  a  line  of  te;:t  (EDT 

*>  of  maximum  length  MAX 

LEN 

EDT*="": IX=POS(0): IY=CSR 

LIN:XI=IX:KBD»-1: IF  MAXL 

EN=0  THEN  MAXLEN=79-IX 

WHILE  KBD<>i3 

XI=LEN(EDT«)+ IX: LOCATE 
IY,XI:PRINT  "_";:KBD$=IN 
PUTtd) 

KBD=ASC(KBD*) : LOCATE  lY 
,XI:PRINT"  "; 

IF  KBD=8  AND  LEN(EDTt)> 
0  THEN  EDT*=LEFT»(EDT*,L 
EIM(EDTS)-l) 

IF    LEN(EDT*)<MAXLEN   AND 

(KBD    AND    127)>=32    THEN 
EDT»=EDT»+KBD«: LOCATE    lY 
,XI:PRINT    KBD*; 
WEND 
RETURN 
'Error    trap: 

CLOSE   #1     'close    any    file 
GOSUB    I9000:13ET     (1,B)-(X 
RES-2,  CY-l )  ,UNDOr.    'save 
screen 

TW=SWIDTH/2-10:LINE  (TW* 
8-10,50)- (TW«8+160, 100), 
0,BF:LINE  (TW«a- 10, 30) - ( 
TW»B+160, 100), ,B:LINE  (T 
W*8-8,52)-(TWtS+15a,98) , 
,B    'draw   box 

IF  ERR>=S2  THEN  MSGlt="D 
OS  ERROR  #"+STR*(ERR) :EL 
SE  MSei»="ERROR  tl"+STR«( 
ERR)+"  in  line"+STR$(ERL 
J 
MSG2t=" (R)etrY    or     (C)anc 


PD  5550 

BF   5560 

ND   5570 
HL   5580 


NH   5590 
FH   6000 

PH  6010 

=  .'   6020 
3S   6030 

at  6040 

!!■   6059 

JO  6060 

JF  6070 

FP  6080 

8K  9000 

GO  9010 

SJ  9020 

K   9030 

FE    9040 
PI   9(S50 


IF   9060 


K!    9070 
LJ   9080 


BD  9090 

HE  9100 

IN  9110 

LH  9120 

FN  9130 

£«  9140 

U  9130 

IH  9160 

m  9170 

HJ  9180 

RL  9190 

PH  9200 

ID  9210 

JC  9220 

PI  9230 

ID  9240 

6P  9250 


LOCATE    a,SWIDTH/2-LEN(MS 

G1*)/2:PR1NT    MS61*:LDCAT 

E    10,SWIDTH/'2-LEN(MSG2«) 

/2: PRINT    MSB2* 

KBD«=INPUT*(1): IF    KBD«<> 

"r"    AND    KBD*<>"R"    AND    KB 

Dt<>"c"    AND    KBDS<>"C"    TH 

EN    5560 

PUT     (1,8),UND07.,PBET    're 

draw    screen 

IF    KBD*="r"    OR    KBD«="R" 

THEN    RESUME    ELSE    RESUME 

NEXT 

'Draw  color  bars 

XR#=XRES/MAXCOL0R: CH=1 1 : 

CY=YRES-CH-1 

LINE  (0,CY)-(XRE5-1,YRES 

-1) ,0,BF 

FOR  1=0  TO  MAX COLOR- 1 

LINE  (I*XR«+2,CY+3)- (I*X 

R»+XR«(-3,CY+CH-3)  ,  I ,  BF 

NEXT 

LINE  (0,CY)- (XRES-1, YRES 

-1),,B 

LINE  (C0LRtXR#,CY+2)-!C0 

LR*XR#+XRtt-l,CY+CH-2) , ,B 

RETURN 

'Initialize  the  menus 

RESTORE  9090 

WHILE  MNSTRSO"-." 

READ  MNID,MNIT,MFLAG,MN 
STR$ 

IF  MNSTR*<>"x"  THEN  BOS 
UB  11000 
WEND 

MFLAQS(3,3)=-PCJR  ' allow 
/disallow  special  jr  mad 

CM*="U1 1 "+CHR* ( 14) +" 1201 
3514\/15"+CHR*{17)+-'16D21 
L22R23C24A25P26B36K37J3a 
"  'key  followed  by  corre 
sponding  MNID  and  MNIT 
RETURN 

'structure  is  MenuId.Men 
ultem,flag  (0,1,2)  and  t 
itle  for  each  entry 
DATA  1,0, 1 , "Picture  " 
DATA  1,1,1, "Undo    U" 
DATA  1,2,  1,  "New    -^N" 
DATA  1,3, 1, "Open    0" 
DATA  1,4, 1, "Save    S" 
DATA  1,5, 1, "yiew    V" 
DATA  1,6,  1,  "Quit   '^Q" 


DATA  2,0,  1 

II 

DATA  2,  1,2 
DATA  2,2,  1 
DATA  2,3,  1 
DATA  2,4,  1 

If 

DATA  2,5,  1 

II 

DATA  2,6, 1 


DATA  3,0, 1 

DATA  3, 1,2 
DATA  3,2, 1 


HS  9260 
01  9270 
1(0  9280 
Bl  9290 
Jl  9300  DATA  3,5,  1 


DATA  3,3,0 

r" 

DATA  3,4,2 


"  Tools 

"  Draw       D 

"  Line       L 

"  Rectangle  R 

"  Circle     C 

"  Airbrush   A 

"  Paint      P 

"Preferences 

■'  320  X  200 

■'  640  X  200 

"  320x200  PCj 

"  cyn/mag/wht 

"  red/grn/yel 
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HF  10040 

DH  100S0 
M    10060 


OE  10080 


FN  10090 


}»   9310  DftTA  3,6,1,"  Bkgd  color 

B" 
EB  9320  DATA  3,7,1,"  Keyboard 
K" 

n   9330  DATA  3,8,1,"  Calibrate 
J" 

OD  9340  DATA  ,,,x 

m   10000  'Menu  package  runs  from 
lines  10000-29999 

K    10010  'Graphics  adaptor  requi 
red  (works  with  a  wide 
variety  of  modes) 

FN  10020  'This  entry  point  is  fo 
r  da-fining  an  indlvidua 
1  menu  entry 

on  10030  '  (equivalent  to  MENU  me 
nuid,menui tern, flag, menu 
■trlngt  in  Mac/Amiga  BA 
SIC) 

•Pass  variables  MNID.MN 
IT.MFLAG,  and  MNAME* 
'MNID=which  menu 
't1NIT*=which  item  (or  0 
to  define  menu  title) 

pa  10070  'MFLAS=0  (ghosted),  I  ( 
norflial)  ,  2  (checked) 
'MNSTR*=nafflB  of  menu  or 

menu  item 
'You  can  also  fill  the 
MENUTITLESO  ,  MFLAGS  ( )  , 
MITEMSO  arrays  direct 
ly.   Set  Top  id  to  #  of 
last  menu,  and  call  MEN 
U_ReFRESH  to  update  oth 
er  arrays 

FC  10100  'include  the  DIM  statem 
ents  following  the  MENU 
entry  point 

ID  10110  'If  you  don't  set  the  v 
ariable  SHIDTH  (screen 
Midth)  to  40  or  80,  it 
defaults  to  80 

LK  10120  ' 

LH  10130  'ttt  MENU  *«* 

LF  10140  ' 

nr.    11000  MAXMENUS=a:MA)(ITEMS=8  ' 
maximum  #  of  menus  and 
menu  items 

6F  11010  IF  NOT  MENUINIT  THEN  DI 
M  MTITLE»(MAXMENUS,MflXI 
TEMS ) , MFLAGS ( MflXMENUS , M 
AX  ITEMS) ,MITEMS(MAXMENU 
S) ,MSAVEX(B00»MAX ITEMS* 
B) , MX (MAXMENUS) : TOPID=0 
:MENUINIT=-1 

J£  11020  IF  MNID<1  OR  MNID>MAXME 
NUS  OR  MNIT<;0  OR  MNIT>M 
AX  I TEMS  THEN  PRINT  "ILL 
EGAL  MENU  PARAMETERS" : S 
TOP 

!H  11030  MTITLE*(MNID,MNIT)=MNST 
R*: MFLAGS (MNID, MNIT) =MF 
LAG 

GL  11040  IF  MNIT>MITEMS(MNID)  TH 
EN  MITEMS(MNID)=MNIT 

GA  11050  IF  MNID>TDPID  THEN  TOPI 
D=MN1D 

IF  11060  RETURN 

Bfi  11070  ' 

EC  110B0  'Next  entry  point  redra 
ws  menu  bar  at  top  of  s 
creen 

Nr  11090  ' 

HH  11100  '«««   MENU_REFRESH  *»* 

LI.  11110  ' 

9J  12000  IF  SWIDTH=0  THEN  IF  XSI 
ZE  THEN  SWIDTH=INT(XSIZ 
E/8+.5)  ELSE  SWIDTH=S0 

on  12010  MSG4="  ":MX(0)=B:SVX  =  Pa 
S<0)  ■.SVY=CSRLIN 

6L  120Z0  FOR  MI  =  1  TD  TOPID:MX(MI 
)  =MX  (MI-I )  +B1-LEN  (MTITLE 
* ( MI , 0 ) ) «B : MSG«=MSB$+" 


"+MTITLE*(M1,0):NEXT:MS 
Gt^MSGS+SPACE* (SWIDTH-L 
EN(MSG«! ) 

KA  12030  LOCATE  1 , 1 : 60SUB  13000 
'print  MSB*  in  reverse 
video 

HC  12040  LOCATE  SVY,  SVX:  RETURN 

HL  12041  ' 

EF  12050  'Print  MSG«  in  reverse 
video 

BI  13000  X1=POS{0)  ta-8:  Y1=CSRLIN 
«8-B:PRINT  MSB*;  :X2=Xl1- 
LEN(MSG«)«a-l:IF  X2>=BW 
IDTH»8  THEN  X2=SWIDTH«a 
-1 

LL  13010  GET  (X1,Y1)-(X2,Y1+7),Z 
ZTEMPZjPUT  (X1,Y1),ZZTE 
MPX, PRESET: RETURN 

LA  13020  ' 

CL  13030  '  Follnwing  entry  point 
checks  for  menu  select 
ion 

OK  13040  'If  a  menu  item  is  sele 
cted,  returns  MNID  (men 
u  id)  and  MNIT  (menu  it 
em) 

m  13050  ' 

ED  13060  '«t*  MENU_PDLL  «** 

KE  13070  ' 

NO  14000  XSAVE=POS(0) :YSAVE=CSRL 

IN 
LP  14010  MNIT=0:MNID=0:GDSUB  200 

00  'get  "mouse"  coordin 

ates 
BJ  14020  IF  MY>7  OR  MB=0  THEN  RE 

TURN  'no  menu  event 

10  14030  WHILE  MB:60SUB  20000:  WE 

ND  'wait  for  button  rel 

ease 
EH  14040  MI  =  1:  WHILE  MI<=TOPID  AN 

D  NOT  (MX>=MX(MI-1)  AND 
MX<=MX(MI)) :MI=MI+1:WE 

ND 
B.   14050  IF  MI>TOPID  THEN  RETURN 

'no  menu  selected 
01  14060  MNID=MI  'found  which  me 

nu,  but  not  which  item 
HJ  14070  IF  SNDFX  THEN  SOUND  100 

00,-5 
FP  14080  EOSUB  16000:  GOSUB  20000 
'drop  menu,  check  "mou 

se" 
U    14090  SAVDACC=DACC:SAV*=CM*:C 

M*="":IF  KEYMDDE  THEN  M 

Y=2:NY=MY:DACC=-e  ' spee 

d  up  keyboard  temporari 

ly,  to  make  menu  select 

ion  easier 
DN  14100  WHILE  MX>=MX(MNID-1)  AN 

D  MX<=MX(MNID)  AND  MB=0 
m    14110   GOSUB  20000  'sets  mx , m 

y,mb 
HD  14120   MI  =  INT(MY/S):  IF  MI>MIT 

EMS (MNID)  THEN  GOTO  141 

50 
«F  14130   IF  MI=MNIT  OR  MFLAGS  <M 

NID,MI>=0  THEN  14180 

11  14140   GOSUB  19000  'turn  curs 

or  off  during  rendering 

6C  14150   IF  MNIT>0  THEN  LOCATE 

MNIT+I, INT(MX(MNID-l)/8 

+2):PRINT  MTITLE»(MNID, 

MNIT)  'un-reverse  previ 

Qus  item 

OA  14160   IF  MI>0  AND  MI<=MITEMS 

(MNID)  THEN  MNIT=MI:LOC 

ATE  MNIT+1, INT(MX(MNID- 

1 ) /8) +2: MSG«=MTITLE* (MN 

ID.MNIT) iGDSUB  13000: IF 

SNDFX  THEN  SOUND  20000 

,.1  'print  MSB*  in  reve 

rse 

13  14170  IF  MI>MITEMS(MNID)  THEN 


LL  14130 
kE  14190 


SO  14200 
L?  14210 
la  14220 


MNIT=0 
MEND 

IF  MX<MX(MNID-1)  OR  MX> 
MX (MNID)  THEN  MNIT=0  'm 
Qved  away  from  menu,  so 

menu  item  is  invalid 
IF  MNIT  THEN  GOSUB  1500 
0  'flash  selection 
GOSUB  17000  'remove  men 


WHILE  MB: GOSUB  20000: WE 
ND  'wait  for  button  rel 
ease 

lie  14230  'Delete  next  line  if  yo 

u  want  to  know  if  a  men 

u  was  selected,  even  if 

no  menu  item  was  selec 

ted. 

KS  14240  IF  MNIT=0  THEN  MNID=0:I 
F  SNDFX  THEN  SOUND  150, 
2: SOUND  50,1  ' uh-oh 

DG  14250  GOSUB  18009:  DACC=SAVDAC 
C:CM*=SAV«: LOCATE  YSAVE 
,XSAVE  'restore  main  pr 
ogram's  settings 
RETURN 


JB  14260 
KB  14270 
CL  14280 

Jit  15000 

FH  15010 


OH  15020 

H6  15030 

BN  15040 
lift  15050 
CK  15060 


HD  15070 

m  15080 

(E  16000 


JC  16010 

CL  16020 

FP  16030 

%  16040 

IfK  16050 

nn  16060 

JO  16070 

DL  16080 

CA  16090 


BL  16100 

10  16110 

no  16120 

OP  16130 

na  16140 


'Flash  selected  menu  it 

em  MNIT 

IF  MNIT=0  OR  HIBHLIGHT= 

0    THEN  RETURN 

MSG*=MTITLE$ (MNID, MNIT) 

jFQR  MI=1  TO  HIGHLIGHT: 

LOCATE  MNIT+1, XP: GOSUB 

13000  'reverse  it 

IF  SNDFX  THEN  SOUND  100 

00-i-MI«500,  .  1 

LOCATE  MNIT+1, XP: PRINT 

MSG*  'unreverse  it 

NEXT: RETURN 

'Drop  down  a  menu,  give 
n  MNID.   Saves  backgrou 
nd  of  image  for  when  me 
nu  Is  restored 
'«tt  MENU_DOWN  *»* 

WXlsMX (MNID-1)  :  WX2=MX (M 

NID) : WYl^e: WY2=8+B«MITE 

MS(MNIDl:XP=INTCWXl/8)+ 

2 

Q09UB  19000  'erase  curs 

or 

LOCATE  1,XP-1: PRINT  "  " 

+MTITLE*(MNID,0) 

GET  (WXl-2,WYl>-(WX2+2, 

WY2+2) (MSAVEX  'save  men 

u  »re& 

LINE  (WXl-2,WYl-l>-tWX2 

+2,WY2+2),,B  'draw  bord 

er; 

LINE  (WX1-1,WY1)-(WX2+1 

,WY2+1),0,BF   'erase  in 

side  of  border 

FOR  MI=1  TO  MITEMS(MNID 

) 

LOCATE  M1+1,XP:PRINT  M 
TITLE4(MN1D,MI) 

IF  MFLAGS  (MNID-,  Ml  )»2  T 
HEN  PSET  {WXl,MI*B+5) :D 
RAW  "f2e5" 

IF  MFLAGS(MNID,MI)=0  T 
HEN  BET  (WXl,MI»a)-(WXl 
+LEN(MTITLE«(MNID,MI) ) « 
8+7,MI*a+7)  ,ZZTEMP7.:PUT 

(WX1,MI«B)  ,ZZTEMPy.,PSE 
TsPUT  (WXl+l,MIta),ZZTE 
MPX 

NEXT  MI 
RETURN 

' »«t  MENU  AWAY  *«« 
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JA  17000 
OK  17010 
ftB    17020 


IF  17030 
KB  17040 
tN  17050 
Pfi    1S000 


KJ    18010 

flJ    18020 
SE    19000 


FK    19010 


IW  19020 
OP  19030 


GOSUB  19000  'erase  curs 

or 

PUT  (WX1-2,WYI) jMSfiVEX, 

PSET 

LOCATE  I,XP-1:MSG*""  "+ 

MTITLE*(MNID,0) :60SUB  1 

3000 

RETURN 


' Cursor  ON 
IF  CURSOR=0 

THEN  RETURN 
f     or  cursor 
PUT  (MX, MY!, 
LE=1: RETURN 
'Cursor  DFF 
IF  CURSaR=0 

THEN  RETURN 
,  or  cursor 
PUT  (MX, MY), 
LE=0: RETURN 


OR  T06GLE=1 

no  cursor 
already  an 
ARROW/.:  TOGO 


DR  TDGBLE=0 

no  cursor 

already  off 

ARROW/.:  TDGG 


'FollQwing  routine  chec 
ks  "mouse",  returns  scr 
een  coords  MX, MY,  and  b 
utton  status  MB  (0  if  n 
ot  pressed,  else  1). 

6(1  19040  'Requires  that  XRfiTIO« 
and  YRATIO*  set  to  rati 

0  of  horizontal /vertica 

1  resolution  divided  by 
maximum  value  of  joyst 

ick.   XOFF  and  YOFF  are 
the  lowest  values  retu 
rned  by  jcjystick  or  tab 
let. 
B6  19050  'XRES  and  YRES  are  the 
width  and  height  of  the 
screen  in  pixels 
HN  19060  'If  CURSOR  flag  is  set 
to  -1,  the  routine  upda 
tes  an  arrow  cursor. 
OH  19070  'if  FROZEN'  flag  is  non- 
zero, disables  joystick 
/tablet. 
EC  19080  'Be  sure  to  initialise 
ACC=1  and  DftCC,   ACC  is 
an  accelerating  distan 
ce  moved  by  cursor  keys 
,  reset  to  DACC  to  stop 
acceleration.   If  DACC 
is  negative,  movement 
Is  constant,  nith  no  ac 
celeration. 
10  19090  'Two  flags  returned  are 
KEYMODE  <0  if  joystick 
/pad  was  just  used,  els 
e  -1)  and  PENUP  (0  for 
no  contact  with  pad  or 
joystick  at  far  upper-1 
eft  corner,  else  —1). 


LH  19100 
KK  19110 
nP  19120 
in  20000 
JL  20010 


JN  20020 


LH   20025 
EE   20030 


'*««    GETXY    *«** 

MB=0:PENUP=0 
IF    NOT    FROZEN    THEN   S0=S 
TICK(0) :S1=STICK(1) : MB= 
STRIG(1):IF   S0OXDFF    OR 
SIOYDFF    THEN    NX=INT(( 
S0-XOFF) *XRATIO#) : NY=IN 
T( CS1-YOFF)»YRATIO«):KE 
YMODE=0:ELSE    PENUP=-1 
MKt=INKEY*:KY=0: IF    MK*a 
""    THEN    IF       TIMER>=TM] 
THEN    ftCC=ABS(DACC)  :TM!  = 
TIMER+. 1:6DT0    20060    ELS 
£    20060 
KY=ftSC (MID* (MK*, 2) +CHRt 

(0)):MB=MB  OR  "(KY=e2): 
KEYM0DE=-1 

NX=-(NX+ACC*(KY=751-ACC 
*(KY=77)  )  t  (KY071)  :  NY=- 

(NY+ ACC* (KY=72) -ACC* (KY 


=80)  )»(KY<:>71) 

)IA  20040  IF  KY=PK  THEN  ACC=ACC+2 
«  (ACC<13»  «  (DACO0)  :PK=K 
YiELSE  ACC=ABS(DACC) :PK 
=  KY 

DC  20050  KY=ASC(MK*)  :  IF  NOT  <KY> 
47  AND  KYC5B)  THEN  WHER 
E=INSTR (CMS, CHR* (KY+32* 
(KY>96  AND  KY<123))):IF 
WHERE  THEN  MNID=VAL(MI 
D«CCM«,WHERE+1, 1) ) :MNIT 
=VAL(MlD«(CM«,WHERE+2, 1 
M:IF  MFLAGS(MNID,MNIT) 
=0  THEN  MNIT=0:MNID=0  E 
LSE  GOSUB  21010 

Hf  20060  IF  NX=MX  AND  NY-MY  THEN 
RETURN 

0?  20065  XBOUND=XRES-XARRGW:YBOU 

ND=YRES-YARROW 
EI  20070  NX=-NX«(NX>0  AND  NX<  =  XB 

DUND)-XBOUND« (NX>XEOUND 

)-(NX<l) 
FO   200B0    NY=-NY*(NY>0    AND    NY<=YB 

OUND)-YBOUND* {NY>YBOUND 

)-(NY<l> 
PS  20090  GOSUB  19000:MX=NX:MY=NY 

iQOSUB  18000 
HP  20100  RETURN 
JJ  21010  XP=INT(MX  (MNID-l)/S)+2: 

MSQ»="  "+MTITLE»(MNID,0 

): GOSUB  19000 
SB  21015  LOCATE  1,XP-1:PRINT  MSG 

$ 
NI  21020  IF  SNDFX  THEN  SOUND  100 

00,  .  1 
FL  21030  LOCATE  1,XP-1:  GOSUB  130 

00 
;(J  21040  RETURN 


Program  2:  REMover 

El  10  'REMover-deletes  REMS  from 
a  program 

AF  20  CLS  SPRINT  "REMover  1  Deletes 
REMb" 

CL  30  PRINT!  PRINT-'Enter  name  of 
ASCII  program  to  edit":LIN 
E  INPUT  ">  "tABCFILE* 

NK  40  PRINT!  PRINT"Enter  name  of 
ASCII  program  to  create" iL 
INE  INPUT  "1  "; CREATE* 

OH  50  OPEN  ASCFILE»  FDR  INPUT  AS 
#1 

KO  60  OPEN  CREATE*  FOR  OUTPUT  AS 
«2 

PL  70  PRINTtPRINT"Level  I  change 
G  REM  statements  to  ' " 

FK  80  PRINT:PRINT"LevBl  II  delet 
BS  all  REM  lines  and  remov 
es  REMs  from  end  of  line." 

FD  90  PRINTS  LINE  INPUT  "Level  I 

(1)  or  II  (2)1  "(LV«iLV=VA 
L<LV*)iIF  LV<1  OR  LV>2  THE 
N  90 

HK  100  WHILE  NOT  E0F(1> 

IB  no   LINE  INPUT#l,L«!PRINT"t" 

( 

DL  1 20   RP= I NSTR  ( L* ,  "  REM  "  ) 

IL  130   IF  RP=0  THEN  RP=INSTR(L* 

> 

LC  140   IF  RP  THEN  L«=LEFT»  (L«,  R 

P-1):IF  LV=1  THEN  L«=L«+" 

t    II 

ftG  150   IF  LV=2  AND  RP=INSTR<L«, 

"  ")+l  THEN  170 
BC  160   PRINT«2,L« 
EC  170  WEND 
HP  IBO  CLOSE*  1 
IH  190  CL0SE«2 
OP  200  PRINT:PRINTjPRlNT"Finishe 

d." 
LN  210    END  © 


64 

UN- 
CRUNCHER 


Lorry  Dinwiddie 


This  convenient  Commodore  64  utility 
"uncrunches"  crowded  BASIC  pro- 
gram lines  into  separate,  easily  read- 
able and  edited  lines.  The  utility 
works  with  either  disk  or  tape,  and 
although  it  is  written  in  machine  lan- 
guage, no  machine  language  expertise 
is  required  to  use  it.  It  runs  on  any 
Commodore  64  or  128  (in  64  mode). 


One  common  programmirg  tech- 
nique in  Commodore  BASIC  is  to 
"crunch"  programs  into  compact 
form  by  combining  multiple  state- 
ments on  a  single  program  line.  As 
most  programmers  soon  learn, 
crunching  conserves  memory  and 
helps  a  program  run  faster.  In  addi- 
tion, programs  listed  in  magazines 
and  books  are  usually  crunched  to 
save  space. 

However,  crunching  also  makes 
the  program  more  difficult  to  read 
and  modify.  Often,  modifying  a 
crunched  program  involves  break- 
ing up  a  long  line  into  tv^'o  or  more 
shorter  lines.  This  can  be  tedious, 
and  it  increases  the  risk  of  errors. 

"64  Uncruncher"  automatical- 
ly uncrunches  an  entire  program  for 
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you,  making  each  BASIC  statement 
a  separate  program  line.  The  result- 
ing program  is  much  easier  to  mod- 
ify than  the  original.  And  because 
each  statement  is  a  separate  line,  it 
is  simpler  to  follow  the  program's 
logic  as  well. 

Figures  1  and  2  illustrate  a  sim- 
ple BASIC  program  before  and  after 
uncrunching.  Both  programs  are 
listed  with  a  width  of  40  columns  so 
they  appear  just  as  they  would  on 
your  screen.  Notice  how  much  easi- 
er it  is  to  read  the  uncrunched  ver- 
sion and  decipher  its  logic. 

Figure  1:  Crunched  Program 


10   POKE   53281, 15 iPOKE   53280, 15 [POKE   646, 

BiPMOT    CH!lS(147):FOR  J=l   TO   10 

2B   GOSUB   SBilF    INT(K/2)-K/2    THEM   PRINT    " 

,    AS   EVEN   mjMBEB'iGOTO   40 

30    PRINT    ",    AN    ODD    NUMBER" 

40    NEXT    JiPHINTlPRINT    "PINISHED" « END 

50    READ    KiPRINT    "K    -"    K ! I RETURN t DATA    123 

,456,789,987,654,321,123,456,789,111 


Figure  2:  Uncrunched  Program 


100    POKE    53281,15 

IIB    POKE    53280,15 

120    POKE   646,0 

130    PRINT   CHH5(147) 

140    FOR   Ja:i    TO    10 

150    GOSUB    220 

160    IF    INT(K/2)-K/2   THEN    PRINT    ",    AN    EVE 

M    NUMBER" iGOTO    160 

170   PRINT    ",    AN   ODD   NUMBER" 

180   NEXT   J 

190    PRINT 

200    PRINT    "FINISHED" 

210    END 

220    READ   K 

230    PRINT    "K   ="    K! 

240    RETURN 

250    DATA   123,456,789,987,654,321,123,456 

,789,111 


Using  Uncruncher 

Since  Uncruncher  is  written  in  ma- 
chine language,  you  must  type  it  in 
using  the  "MLX"  machine  lan- 
guage entry  program  listed  else- 
where in  this  issue.  Be  sure  you 
read  and  understand  the  instruc- 
tions for  using  MLX  before  you  begin 
entering  the  data  for  Uncruncher. 

When  you  run  the  MLX  pro- 
gram, it  asks  you  for  a  starting  ad- 
dress and  an  ending  address.  Here 
are  the  addresses  for  Uncruncher; 

Starting  address:  COOO 
Ending  address:  C60F 

After  you've  typed  in  and 
saved  all  of  the  Uncruncher  data, 
you  can  test  it  on  any  Commodore 
64  BASIC  program.  Follow  these 
steps: 

1.  Load  Uncruncher  into  memory 
by  typing  LOAD  "filename'' ,%.\  for 
disk  or  LOAD   " filename', \,l   for 


tape.  Substitute  your  own  filename, 

of  course. 

2.  Type  NEW  and  press  RETURN. 

3.  Load  (but  do  not  run)  the  BASIC 
program  you  want  to  uncrunch. 

4.  To  start  Uncruncher,  type  SYS 
49152  and  press  RETURN.  The 
screen  clears  and  Uncruncher  dis- 
plays messages  informing  you  of  its 
progress.  It  takes  three  passes 
through  the  BASIC  code  to  un- 
crunch the  program.  When  the 
READY  prompt  returns,  the  un- 
crunching is  complete. 

You  may  pause  Uncruncher  at 

any  time  by  holding  down  the  fl 
function  key.  Do  not  interrupt  Un- 
cruncher by  pressing  RUN/STOP- 
RESTORE;  if  you  do,  the  program 
may  be  left  in  a  garbled,  unusable 
form.  No  real  harm  is  done,  but 
you'l!  need  to  reload  the  program 
and  restart  Uncruncher. 

Uniform  Line  Numbers 

Uncruncher  begins  numbering  the 
new  program  at  line  100  using  line 
increments  of  10  (110,  120,  and  so 
on).  Each  BASIC  statement  is  a  sep- 
arate line,  except  for  lines  contain- 
ing IF-THEN  statements.  Because 
the  THEN  portion  of  such  a  state- 
ment must  be  on  the  same  line  as 
IF,  IF-THEN  lines  are  left  un- 
changed except  for  renumbering. 
For  any  BASIC  statement  that  refer- 
ences a  line  number  (such  as 
GOTO,  GOSUB,  IF-THEN,  RUN, 
and  LIST),  the  line  reference  is  also 
renumbered. 

During  the  third  pass,  the  pro- 
gram prints  the  line  numbers  it  is 
replacing.  If  Uncruncher  finds  a 
statement  that  refers  to  a  nonexis- 
tent line  number,  it  prints  this  error 
message: 

UNREFERENCED  BRANCH  IN  NEW 
LINE  #  xxxxx 

When  you  see  this  message, 
xxxxx  is  replaced  by  the  new  line 
number  where  the  nonexistent  ref- 
erence is  located.  To  mark  where 
the  error  occurred,  Uncruncher  re- 
places the  meaningless  line  number 
with  63999,  the  highest  legal  line 
number.  An  unreferenced  branch 
error  indicates  a  logic  error  in  the 
original  program,  so  you  should  re- 
load the  original,  correct  the  error, 
and  then  repeat  the  uncrunching 
process. 

If  uncrunching   generates   a 


large  number  of  unreferenced  line 
number  errors,  you  may  find  it  use- 
ful to  divert  Uncruncher's  output  to 
a  printer.  To  do  this,  make  sure  the 
printer  is  turned  on,  then  enter  this 
statement  in  direct  mode  (without  a 
line  number): 
OPEN  4,4:CMD  4:SYS  49152 

Now  everything  that  would  have 
been  printed  on  the  screen  is  sent  to 
the  printer  instead.  When  Un- 
cruncher is  finished,  type  this  state- 
ment and  press  RETURN: 

PRINT#4:CLOSE  4 

DATA  statements  are  un- 
crunched in  a  special  way.  After 
uncrunching,  each  DATA  line  con- 
tains approximately  60  characters 
per  line,  including  the  line  number 
and  the  keyword  DATA.  However, 
no  individual  DATA  item  will  be 
split  across  two  lines. 

After  the  program  has  been 
uncrunched,  you  may  list  it,  resave 
it,  or  modify  it  as  usual.  If  you  have 
a  crunch  utility,  you  may  wish  to 
recrunch  the  program  after  making 
modifications. 

Because  the  additional  line 
numbers  take  up  more  memory,  the 
uncrunched  program  is  significant- 
ly larger  than  the  original,  leaving 
less  memory  for  BASIC  variables 
and  arrays.  In  most  cases  this 
should  not  cause  a  problem  other 
than  slowing  program  execution 
somewhat.  However,  a  very  large 
BASIC  program  or  one  that  requires 
a  great  deal  of  variable  space  may 
not  run  correctly  in  uncrunched 
form. 

Similar  problems  may  arise  if 
the  original  program  POKEs  sprite 
shapes,  custom  characters,  or  other 
data  into  a  reserved  area  within 
BASIC  memory.  If  the  uncrunched 
program  text  expands  into  the  re- 
served area,  the  POKEs  may  de- 
stroy part  of  the  program  text.  To  be 
on  the  safe  side,  you  may  want  to 
save  the  uncrunched  program  im- 
mediately before  you  fry  to  run  it. 

64  Uncruncher 

Please  refer  to  the  "MLX"  article  fn  this  Issue 
tielore  entering  ftie  following  listing. 
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The  World  Inside  the  Computer 


Fred  D'Ignazio,  Associate  Editor 


Do-lt-Yourself  Movies  On  An  Apple 


Recently  my  ten-year-old  daughter 
Catie  asked  if  I'd  like  to  help  her 
with  her  school  science  project.  Oh, 
boy!  1  thought.  Here's  a  chance  to 
show  her  how  she  could  take  ad- 
vantage of  a  computer! 

I  was  almost  afraid  to  suggest 
that  we  use  a  computer,  however. 
She's  not  quite  as  fanatical  about 
the  machines  as  I  am,  and  she  gets 
tired  hearing  how  every  family  ac- 
tivity can  somehow  be  tied  to  com- 
puters. So  I  didn't  mention  the 
word  "computer"  at  all.  Instead,  I 
said,  "Hey,  Catie,  how'd  you  like  to 
make  a  movie  for  your  science  pro- 
ject?" This  idea  delighted  her,  so  off 
we  went. 

The  first  step  was  to  choose  a 
subject.  Catie  chose  black  holes. 
"Okay,"  I  said.  "You  have  to  do 
two  things:  Draw  a  bunch  of 
squares  like  you  see  in  the  funnies 
in  the  newspaper,  and  draw  pic- 
tures inside  the  squares  of  the  black 
hole — how  it's  born,  how  it  grows, 
and  so  on.  Next,  sit  down  and  write 
a  script  for  the  movie.  Match  what 
you  say  in  the  script  with  the  pic- 
tures in  the  squares." 

Frame  By  Frame 

Catie  raced  off  and  drew  the  pic- 
tures and  wrote  her  script.  When 
she  came  back,  I  was  sitting  in  front 
of  our  Apple  lie.  "Daddy,"  she  said, 
"why  are  you  sitting  at  the  com- 
puter? We're  supposed  to  be  work- 
ing on  my  movie." 

"Aha!"  I  said.  "The  computer 
is  going  to  help  us  make  that  mov- 
ie." I  introduced  her  to  a  program 
called  Fantavision.  Fantavision 
looks  like  a  normal  drawing  pro- 
gram— it  has  a  drawing  window 
surrounded  by  lots  of  tools  and 
menu  options  around  the  border,  I 
showed  Catie  how  she  could  draw 
things  freehand  or  with  rubber- 
band  lines,  squares,  circles,  and  so 
on.  She  could  fill  the  objects  with 
color,  stretch  them,  rotate  them, 
squish  them,  cut  them,  and  paste 


them  anywhere  in  the  window. 

But  this  was  just  the  beginning. 
When  she  was  done  creating  a  pic- 
ture of  a  happy  face,  I  showed  her 
how  she  had  just  created  one  frame 
in  a  cartoon.  She  could  use  the 
mouse  to  scroll  the  screen  and  be- 
gin creating  the  next  frame.  Catie 
then  drew  a  face  of  a  kitty  cat. 

"And  now  you've  got  a  little 
movie,"  I  told  her.  I  pointed  the 
mouse  to  a  menu  box  labeled  GO, 
and  we  watched  a  short  cartoon  of 
the  happy  face  changing  into  the 
face  of  the  cat, 

A  whole  movie  from  only  two 
frames?  The  secret  is  a  complex 
technique  that  animators  call 
tweening  (derived  from  betweeri). 
Fantavision  automatically  con- 
structed dozens  of  new  frames  from 
Catie's  first  frame  and  second 
frame,  then  inserted  them  between 
her  frames  to  smooth  out  the  transi- 
tion. These  new  frames,  called 
tweeners,  made  the  happy  face  in 
her  first  frame  change  gradually 
into  the  kitty's  face  of  her  second 
frame. 

From  Giant  To  Dwarf 

With  very  little  help  from  me,  Catie 
sat  down  at  the  computer  and 
learned  how  to  use  Fantavision  in 
about  half  an  hour.  She  copied  her 
hand-drawn  frames  from  her  note- 
book onto  the  screen.  The  first 
frame  was  a  picture  of  a  normal, 
yellow-looking  sun  surrounded  by 
stars  in  outer  space.  The  r>ext  frame 
was  of  the  same  sun,  now  billions 
of  years  older,  swollen  to  become  a 
red  giant  star.  The  third  frame 
showed  the  star  shrunken  into  a 
tiny  white  dwarf  star. 

The  white  dwarf  continued  to 
shrink  until  it  became  a  black  hole. 
Catie  drew  a  picture  of  the  black 
hole  that  was  straight  out  of  Walt 
Disney — with  swirling  white 
clouds  of  cosmic  gas  spiraling 
around  a  dark  center.  Next,  using 
I  the  COPY,  MOVE,  and  ROTATE 


commands,  she  drew  successive 
frames  of  the  black  hole  rotating 
and  gobbling  up  stars. 

Then  Catie  designed  a  title, 
which  turned  out  to  be  one  of  the 
most  spectacular  parts  of  the  movie. 
By  using  the  ZOOM  command,  Catie 
was  able  to  create  several  succes- 
sive frames  with  the  words  "The 
Black  Hole"  growing  larger  and 
larger.  And  when  the  movie  starts, 
the  letters  in  the  title  break  up  into 
pieces  which  come  together  to  form 
the  stars  and  the  sun.  This  looks 
like  an  amazing  special  effect,  but  it 
was  completely  unintended;  it  was 
just  a  by-product  of  Fantavisiotfs 
tweening  capabilities. 

Finally,  Catie  and  I  set  up  the 
Apple  in  the  room  with  the  stereo 
cassette  player.  We  bought  a  copy 
of  the  soundtrack  to  the  movie  Jaws 
and  aimed  a  video  camera  at  the 
computer  screen  while  the  hungry 
shark  music  was  playing  in  the 
background.  Catie  read  her  script  as 
the  movie  progressed — from  the 
opening  title  to  the  birth  and 
growth  of  the  black  hole.  It  took  us 
several  tries  to  synchronize  the  mu- 
sic, Catie's  narration,  and  the  Fanta- 
vision movie,  but  it  was  well  worth 
it.  The  next  day,  Catie  took  her  pro- 
ject to  school  and  won  a  blue  ribbon 
for  her  efforts. 

1  was  really  proud  of  her,  but  my 
biggest  thrill  came  when  she  ran  up 
to  me  after  the  judging  and  said, 
"You  know.  Daddy,  sometimes  I'm 
glad  that  our  family  has  a  computer." 

{Fantavision  is  available  for 
$49.95  for  all  Apple  Il-series  comput- 
ers with  at  least  64K  of  RAM.  For 
more  information,  contact  Broder- 
bund  Software,  17  Paul  Drive,  San 
Rafael,  CA  94903.)  ® 
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Computers  and  Society 


Dovid  D,  Thornburg,  Associate  Editor 


Speak  Softly  And  Carry  A  Big  RAM 


Sooner  or  later  it  was  inevitable 
that  the  grandiose  and  bizarre 
claims  of  some  computer  scientists 
would  result  in  a  critical  response 
from  someone  with  a  radically  dif- 
ferent point  of  view.  I  just  read  such 
a  response  by  Theodore  Roszak,  a 
history  professor  at  California  State 
University,  Hayward.  Roszak's  book. 
The  Cult  of  htformation  (Pantheon 
Books,  1986),  lambastes  an  entire 
field  for  the  excesses  of  a  few.  As  a 
result,  he  is  guilty  of  the  same  error 
as  the  people  he  criticizes — mem- 
bers of  the  artificial  intelligensia 
who  claim  that  computers  accurately 
mimic  human  behavior  and  who 
feel  we  would  be  better  off  learning 
to  think  like  machines, 

I  share  his  distaste  for  the  ex- 
travagant and  largely  unsupported 
claims  made  by  those  who  feel  that 
silicon  consciousness  is  our  evolu- 
tionary destiny.  What  distresses  me 
is  that  Roszak  expresses  the  belief 
that  the  general  acceptance  of  com- 
puters into  our  homes,  schools,  and 
workplaces  is  somehow  damaging 
to  our  identity  as  human  beings. 

He  is  confusing  the  tool  with 
the  result  and  forgetting  that  tech- 
nology is  inherently  neutral.  Com- 
puters can  be  (and  have  been)  used 
in  inappropriate  ways,  as  have 
fountain  pens.  How  easy  it  is  to  use 
the  wild  exhortations  of  our  field's 
fringe  fanatics  to  damn  an  entire 
technology — one  that  most  of  us 
understand  and  use  without  feeling 
any  loss  of  humanity. 

Towards  Holistic  Thought 

Rather  than  diminishing  our  hu- 
man qualities,  I  think  computers 
allow  us  to  integrate  our  thinking — 
to  become  holistic  learners  who  see 
knowledge  as  something  more  than 
a  collection  of  facts  stored  in  sepa- 
rately labeled  boxes,  each  with  its 
own  content,  and  with  little  or  no 
connection  between  them.  The  spe- 
cialization of  knowledge  into  fields 
was  a  result  of  an  information  ex- 


plosion that  made  it  impossible  for 
one  person  to  achieve  mastery  of  all 
subjects.  While  this  division  will 
remain  important  for  many  experts 
in  these  fields,  there  is  increasing 
evidence  that  it  has  negative  conse- 
quences. 

To  take  one  example,  many 
particle  physicists  are  finding  that 
advances  in  their  field  are  aided  by 
a  study  of  Taoist  philosophy.  My 
own  hobby  of  computational  lin- 
guistics is  populated  by  linguists, 
philosophers,  and  computer  scien- 
tists, each  willing  to  learn  from  the 
others.  True  knowledge  is  interdis- 
ciplinary. As  soon  as  one  draws  a 
box  around  a  topic  to  clarify  the 
object  of  study,  one  risks  excluding 
information  or  viewpoints  that  can 
end  up  being  quite  important. 

I  sometimes  put  on  a  multi- 
media event  called  T/ie  Magic  Uni- 
verse of  Recursion  in  which  I  show 
the  appearance  of  this  mathemati- 
cal concept  in  computer  program- 
ming, music,  art,  literature, 
philosophy,  and  religion.  My  point 
is  not  to  say  that  each  of  these 
topics  is  mathematical — mostly 
they  are  not.  Rather,  it  is  my  pur- 
pose to  show  that  recursion  is  an 
idea  that  breaks  across  traditional 
barriers  of  knowledge. 

I  am  convinced  that  there  are 
hundreds  of  general  concepts  that 
transcend  the  fields  in  which  they 
were  first  used,  if  only  we  would 
look  for  them.  Fortunately,  one  tool 
to  aid  in  our  search  is  readily  at 
hand — the  personal  computer. 

Enter  The  Computer 

As  a  tool  that  lets  us  manipulate 
information  and  construct  meta- 
phorical worlds  of  our  own  design, 
the  computer  can  help  us  chart  a 
path  across  the  boundaries  of  nu- 
merous disciplines  in  our  quest  for 
holistic  education. 

Most  fields  of  endeavor  are  so 
complex  and  demanding  that  one 
has  little  time  to  search  beyond  the 


walls  of  one  subject  for  ideas  of 
value  from  another  area.  As  com- 
puter technology  becomes  easier  to 
use,  the  tedious  aspects  of  at  least 
some  parts  of  many  fields  will  be 
relegated  to  machinery,  thus  free- 
ing people  to  stand  back  and  take  in 
a  larger  view  of  the  subject.  It  is 
hard  to  take  a  reading  on  the  stars 
while  you  are  rowing  the  boat. 

This  is  why  I  first  became  inter- 
ested in  Logo.  I  saw,  in  Logo's  turtle 
graphics,  a  tool  that  would  let  me 
explore  the  mathematics  of  naturally 
occurring  patterns.  I  have  spent 
years  exploring  everything  from 
cracks  in  drying  mud  to  the  delicate 
patterns  in  ferns.  The  ease  with 
which  I  could  generate,  test,  and 
evaluate  hypotheses  with  the  aid  of 
the  computer  allowed  me  to  ask 
questions  1  would  not  have  dared  to 
ask  otherwise. 

My  point  is  that  the  really  ex- 
citing uses  of  computers  are  likely 
to  come  from  the  interdisciplinary 
holistic  thinkers — people  who  sense 
the  unity  behind  the  major  ideas  of 
our  time  and  place.  These  people 
tend  not  to  be  technologists,  be- 
cause the  intense  study  needed  to 
master  technology  leaves  (we  are 
told)  little  room  for  anything  else. 
The  people  I  have  in  mind  are  those 
whose  interests  span  many  fields — 
physics  and  poetry,  art  and  archae- 
ology— people  who  probably  have 
degrees  in  the  "liberal  arts." 

In  order  for  such  people  to  use 
computer  technology  effectively, 
computers  must  have  speed,  lots  of 
memory,  excellent  software,  and  a 
transparent  user  interface.  Comput- 
ers like  the  Macintosh  and  Amiga 
are  stepping  stones  in  the  right  di- 
rection. Software  for  these  comput- 
ers is  being  designed  to  rise  to  the 
level  of  the  way  people  work  rather 
than  dragging  the  user  down  to  the 
machine's  level.  @ 
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The  Beginners  Page 


Tom  R,  Holfhill,  Editor 


Advanced  String  Features 


To  wrap  up  our  long-running  series 
on  character  strings  in  BASIC,  let's 
take  a  look  at  some  advanced  string 
features  which  are  finding  their 
way  into  the  latest  and  most  sophis- 
ticated versions  of  the  BASIC  lan- 
guage. Although  these  features  may 
not  be  found  in  the  BASIC  you're 
working  with  now,  you'll  probably 
encounter  them  sometime  in  the 
future. 

If  you  want  to  keep  up  with 
these  trends,  pay  attention  to  any 
new  version  of  BASIC  released  by 
Microsoft,  Inc.  Microsoft  certainly 
isn't  the  only  company  in  the 
BASIC  business,  but  it  definitely  is 
the  market  leader.  Versions  of  Mi- 
crosoft BASIC  are  either  standard 
equipment  or  available  as  an  option 
for  almost  every  microcomputer 
ever  made.  When  an  advanced  fea- 
ture is  introduced  in  a  new  version 
of  Microsoft  BASIC,  it  tends  to  cross 
over  into  the  next  version  which  is 
released,  even  if  the  next  version  is 
for  a  completely  different  computer. 

For  instance,  the  latest  Micro- 
soft BASIC  to  appear  is  Amiga 
BASIC.  It  shares  numerous  features 
with  its  nearest  predecessor,  Micro- 
soft BASIC  for  the  Macintosh.  These 
two  dialects  are  so  much  alike  that 
some  example  programs  in  the 
Macintosh  BASIC  manual — even 
those  with  graphics — will  run  un- 
changed on  the  Amiga. 

Super  Strings 

One  new  trend  in  Microsoft  BASIC 
is  to  remove  the  255-character  limit 
on  strings.  Macintosh  BASIC  and 
Amiga  BASIC  both  let  you  define 
strings  up  to  32,767  characters  long. 

So  what?  you  might  say.  Who 
needs  to  display  a  message  that's 
thousands  of  characters  long?  It 
probably  won't  fit  on  the  screen, 
anyway. 

But  strings  are  good  for  lots  of 
things  besides  displaying  messages, 
of  course,  especially  if  they  aren't 
limited  to  255  characters.  Program- 


mers on  the  Atari  400/800/XL/XE 
computers  know  this  well,  because 
Atari  BASIC  has  allowed  super 
strings  since  1979. 

For  instance,  suppose  you  want 
to  write  a  simple  terminal  program 
for  downloading  public  domain  soft- 
ware from  information  services  and 
bulletin  boards.  Unless  you're 
handy  with  a  memory  map,  you 
might  have  trouble  finding  a  large 
area  of  free  memory  in  your  com- 
puter to  temporarily  hold  the  down- 
loaded data  before  storing  it  on 
disk.  With  super  strings,  it's  no 
problem.  Simply  download  every- 
thing into  a  single  string,  perhaps 
called  BUFFERS.  Since  BASIC  re- 
serves and  protects  memory  for  the 
string,  you  don't  have  to  worry 
about  memory  conflicts. 

Best  of  all,  the  new  Microsoft 
BASICS  don't  force  you  to  give  up 
anything  in  return  for  super 
strings — unlike  Atari  BASIC,  which 
doesn't  allow  string  arrays  as  a 
tradeoff  for  this  feature. 

Search  And  Replace 

Another  powerful  feature  of  late- 
model  BASICS  is  the  INSTR  func- 
tion {pronounced  in-string).  INSTR 
searches  through  a  longer  string  in 
search  of  any  shorter  string  you 
specify.  If  INSTR  finds  the  shorter 
string  {substring),  it  returns  a  num- 
ber indicating  the  substring's  start- 
ing character  position  within  the 
longer  string.  Example: 

10  MAINS  =  "This  is  the  longer  string." 

20  X  =  INSTR(MAIN$,"the") 

When  you  run  this  program, 
INSTR  returns  the  value  9  in  the 
variable  X,  because  the  substring 
the  begins  at  the  ninth  character 
position  within  MAINS.  Of  course, 
you  could  also  use  a  string  variable 
for  the  substring  parameter  in  the 
INSTR  function.  If  INSTR  can't  find 
the  substring,  it  returns  a  0. 

By  adding  another  parameter, 
INSTR  can  be  made  to  begin  its 
search  at  any  point  within  MAINS. 


For  example,  X  =  INSTR(5,MAIN- 
$,SUB$)  would  begin  searching  for 
SUBS  at  the  fifth  character  position 
of  MAINS.  The  INSTR  function 
makes  it  a  snap  to  write  filing  pro- 
grams with  rapid  search-and- 
retrieve  features,  because  it  works 
at  nearly  machine  language  speed. 

Some  recent  BASlCs  (includ- 
ing Macintosh  BASIC,  Amiga 
BASIC,  and  BASIC  7.0  on  the  Com- 
modore 128)  allow  the  use  of  MID$ 
as  a  statement  as  well  as  a  function. 
You'll  recall  from  the  April  column 
that  the  MID$  function  lets  you 
copy  a  substring  from  within  a  larg- 
er string.  When  used  as  a  statement, 
MIDS  lets  you  replace  a  specified 
substring  with  another  string.  And 
the  replacement  string  isn't  limited 
to  the  length  of  the  substring  it's 
replacing.  When  coupled  with 
INSTR,  the  M1D$  statement  makes 
it  easy  to  add  a  search-and-replace 
feature  to  a  filing  program. 

Finally,  another  useful  string 
command  found  in  newer  BASlCs 
is  UCASE$,  This  converts  any 
string  of  lowercase  characters  to  up- 
percase. Example; 
PRINT  UCASESC'capitalized") 

results  in  CAPITALIZED.  A  logical 
application  for  the  UCA5E$  com- 
mand is  to  make  an  INSTR  search 
routine  insensitive  to  case.  For  in- 
stance, the  statement  X  =  1NSTR(U- 
CASE$(MAIN$),UCASE$(SUB$)) 
will  make  certain  that  INSTR  will 
find  any  matching  SUB$  within 
MAINS,  even  if  some  of  the  charac- 
ters are  mixed  uppercase  and  lower- 
case. 

Watch  for  more  features  like 
these  to  keep  appearing  in  new  ver- 
sions of  BASIC.  Although  it's  over 
20  years  old,  BASIC  is  only  now 
experiencing  its  greatest  growth 
spurt  as  programmers  continue  de- 
manding more  and  more  power 
from  this  popular  language.  © 
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Telecomputing  Today 


Arlan  R.  Leviton 


This  Fido's  No  Dog 


In  June  1984,  Tom  Jennings  of  San 
Francisco  and  John  Madill  of  Balti- 
more began  developing  and  testing 
an  MS-DOS-based  electronic  bulle- 
tin board  system  (BBS)  called  Fido. 
Although  Fido  sported  the  usual 
file  upload  and  download  facilities, 
its  electronic  mail  system  was  far 
from  typical.  Fido  systems  were  not 
designed  to  exist  as  separate,  isolat- 
ed entities  like  most  BBSs.  Instead, 
Jennings  and  Madill  set  out  to  cre- 
ate a  BBS  that  could  network  with 
others  of  its  own  kind.  Rather  than 
requiring  users  and  system  opera- 
tors to  call  each  other's  BBSs  to 
leave  messages,  Fido  would  rou- 
tinely store  and  forward  messages 
to  other  Fidos  via  modem  in  the 
dead  of  the  night,  when  long- 
distance phone  rates  are  lowest. 

By  August  1984  there  were  al- 
most 30  Fido  systems  (commonly 
referred  to  as  nodes  by  Fido  fans). 
Since  then,  Fido  has  grown  faster 
and  bigger  than  a  Saint  Bernard. 
Today,  more  than  100,000  users 
communicate  over  FidoNet,  which 
consists  of  more  than  1,000  Fido 
systems  spread  across  the  U.S.,  Eu- 
rope, and  Australia.  Using  FidoNet, 
these  telecomputing  enthusiasts  can 
communicate  with  each  other  over- 
night. And  in  addition  to  the  public 
FidoNet,  internal  Fido  systems  are 
being  widely  used  by  private  indus- 
try and  government  bureaus. 

The  sheer  magnitude  of  Fido- 
Net easily  qualifies  it  as  the  largest 
publicly  owned  and  operated  tele- 
computing network  in  the  world. 
Other  attempts  at  nationwide 
networking  via  BBS  have  collapsed 
under  their  own  administrative 
weight.  But  the  organizational  tal- 
ents of  Fido's  creators  and  a  dedi- 
cated inner  core  of  Fido  system 
coordinators  and  directors  have 
been  put  to  good  use.  Careful  plan- 
ning and  more  sweat  than  expend- 
ed in  a  dozen  NBA  playoffs  have 
kept  the  Fido  network  functioning 


smoothly. 

Global  Party  Line 

If  you  live  in  a  metropolitan  area, 
your  local  Fido  is  likely  to  be  a 
member  of  a  group  of  Fido  systems 
located  relatively  close  to  each  oth- 
er. Each  group  is  considered  to  be  a 
/oca/  network.  One  system  within 
the  group  is  designated  as  a  network 
host.  The  system  operator  of  the 
network  host  is  charged  with  main- 
taining a  list  of  the  nodes  in  the 
local  net. 

How  does  Fido  work?  During 
the  day,  Fido  users  can  leave  mes- 
sages for  both  local  and  remote  us- 
ers. At  about  4:30  a.m.,  the  nodes 
within  the  local  network  begin  dial- 
ing their  network  host  to  transfer 
messages  intended  for  remote  Fido 
systems.  Once  all  of  the  outgoing 
messages  from  the  local  net  have 
been  collected,  the  network  host 
compresses  them  to  shorten  trans- 
mission time,  then  starts  calling 
other  network  hosts  to  send  the 
messages.  From  5:00  to  5:30  a.m., 
the  network  hosts  dial  up  their  local 
nodes  to  deliver  incoming  mes- 
sages. Heavily  used  local  nets  often 
have  two  network  hosts,  one  each 
for  outgoing  and  incoming  traffic. 

Fidos  that  are  too  isolated  to  he 
a  member  of  a  local  network  are 
called  independents  and  are  permit- 
ted to  forward  and  receive  mail  di- 
rectly to  and  from  network  hosts 
and  other  independents.  Regional 
Fido  coordinators  are  responsible 
for  keeping  track  of  independents 
and  encouraging  them  to  join  exist- 
ing nets  or  forming  new  ones. 

At  this  writing,  the  U.S.  is  di- 
vided into  12  Fido  regions.  Europe 
has  six  regions;  Australia,  two. 
There  are  82  network  hosts  world- 
wide. Each  host  has  an  average  lo- 
cal net  of  about  13  systems.  It's 
interesting  to  note  that  the  network 
hosts  in  Europe  are  equipped  with 
two  different  types  of  modems.  To 


handle  local  traffic,  they  use 
modems  adhering  to  the  CCITT 
(Consultative  Committee  on  Inter- 
national Telephony  &  Telegraphy) 
standard,  which  employs  different 
frequencies  than  our  domestic  units; 
U.S. -type  modems  handle  transfers 
to  and  from  Fidos  in  North  America. 

Managing  The  FidoNet 

What's  truly  amazing  is  that  the 
cost  of  operating  FidoNet  is  very 
low  when  spread  out  over  the  en- 
tire user  base.  There  is  no  central- 
ized billing.  The  local  nodes  are  at 
liberty  to  recoup  the  long-distance 
charges  incurred  by  their  network 
host  however  they  see  fit,  either 
footing  the  bill  themselves  or  by 
charging  a  small  yearly  member- 
ship fee  to  their  local  users. 

The  logistics  of  keeping  things 
straight  within  FidoNet  could  turn 
into  a  never-ending  "Who's  on 
first?"  dilemma  if  everyone  didn't 
have  a  constantly  updated  "phone 
book,"  or  node  list,  for  all  of  the 
systems.  Network  host  operators 
and  regional  coordinators  are  re- 
sponsible for  notifying  the  national 
Fido  coordinators  of  any  changes  in 
their  networks.  The  national  coor- 
dinators, in  turn,  forward  a  com- 
piled list  of  changes  to  Ken  Kaplan, 
executive  director  of  the  Interna- 
tional Fido  Association.  A  list  of 
FidoNet  changes  is  automatically 
transmitted  to  the  network  hosts 
every  weekend  from  Kaplan's  Fido. 

There's  also  an  excellent  week- 
ly FidoNet  newsletter,  managed  by 
FidoFiend  Tom  Henderson,  that's 
both  compiled  and  distributed  via 
FidoNet.  For  more  information,  write 
to  the  International  FidoNet  Asso- 
ciation, P.O.  Box  41143,  St.  Louis, 
MO  63141.  © 
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INSIGHT:  Atari 


Bill  Wilkinson 


Many  people  have  asked  me  to  dis- 
cuss the  use  of  the  DOS  2.5  RAM 
disk  with  Atari  computers  other 
than  the  130XE.  Most  are  interested 
either  in  one  of  the  800XL  memory 
upgrade  kits  now  available  or  in 
simply  using  the  extra  16K  memory 
of  an  XL  as  a  very  small  RAM  disk. 
Since  I've  seen  the  subject  treated 
incorrectly  in  several  user  group 
newsletters,  I  decided  that  some 
mildly  technical  discussion  here 
would  not  be  amiss. 

Many  months  ago,  in  one  of 
my  columns,  I  described  the  memo- 
ry map  of  an  Atari  XL  computer. 
This  time,  let's  see  how  a  130XE  is  a 
fairly  simple  expansion  of  the  XL 
models. 

An  Atari  130XE  has  126K— not 
128K — of  Random  Access  Memory. 
(Keep  in  mind  that  one  kilobyte 
equals  1,024  bytes.)  The  first  62K  is 
used  and  accessed  exactly  the  same 
way  as  the  62K  in  the  1200XL  and 
800XL  (that  62K  is  not  a  typo, 
either — more  on  this  later).  Now,  a 
6502  microprocessor  can  address  a 
total  of  only  64K  of  contiguous 
memory,  because  the  address 
counter  goes  from  0  to  65535  (64  * 
1024).  In  the  hexadecimal  (base  16) 
numbering  system  used  by  com- 
puters, those  addresses  are  ex- 
pressed as  $0000  (0)  to  $FFFF 
(65535).  When  the  address  counter 
passes  $FFFF,  it  rolls  back  to  $0000 
again.  This  is  kind  of  like  a  car 
speedometer  which  only  goes  to 
99,999.9  miles;  another  tenth  of  a 
mile  and  you  have  a  new  car  again. 

So,  how  does  the  130XE  access 
its  extra  64K  of  memory?  By  a  tech- 
nique known  as  bank  selection. 

Cashing  In  At  The 
Memory  Bank 

The  extra  64K  in  the  130XE  is  divid- 
ed into  four  separate  16K  banks. 
The  6502  can  access  only  one  of 
these  banks  at  a  time.  But  wait,  you 
say,  if  the  main  memory  uses  up  the 


full  addressable  range  of  the  6502, 
where  do  these  extra  banks  fit  in? 

The  answer:  16K  of  the  main 
memory  (that  is,  of  the  regular  64K) 
is  disabled.  Effectively,  then,  a 
130XE  has //j'f  banks  of  RAM,  each 
consisting  of  16K,  plus  another  46K 
(not  a  typo)  which  is  »of  bank 
selected. 

Now  comes  the  important  part: 
Just  where,  within  the  64K  address 
space  of  the  6502,  are  these  five 
banks  addressed?  As  Appendix  H 
of  the  130XE  owner's  manual 
states,  the  selectable  16K  bank  falls 
between  locations  16384  (hex 
$4000)  and  32767  ($7FFF).  This  is 
the  second  quarter  of  the  6502's 
64K  memory  space.  Why  was  this 
16K  area  chosen  instead  of  some 
other  area?  Because  the  first  quarter 
of  memory  includes  zero  page,  and 
bank-selecting  zero  page  is  a  tricky 
proposition  in  a  computer  which  is 
handling  interrupts.  The  other  two 
quarters  of  memory  share  space 
with  cartridges  and/or  the  operat- 
ing system  ROM,  which  would 
make  programming  more  compli- 
cated. Thus,  the  second  quarter  of 
memory  wins  by  default. 

Okay  so  far.  Now  let's  consider 
where  BASIC  programs  reside  in 
memory.  Generally  they  begin  at  a 
memory  location  called  LOMEM, 
which  can  vary  but  is  usually  be- 
tween $1C00  and  $2400  (about 
7000  and  9000)  when  DOS  is  boot- 
ed. BASIC  programs  always  end 
below  screen  memory,  which  in 
turn  is  below  the  BASIC  ROM.  In 
practice,  this  means  that  BASIC 
programs  and  their  variables  are 
limited  to  a  length  of  about  31K. 

Let's  assume  that  LOMEM  is  at 
$2000  (8192).  Let  us  also  assume 
that  we  have  loaded  or  typed  in  a 
BASIC  program  which  is  12,000 
bytes  long.  Where  does  that  pro- 
gram end?  Smack  dab  in  the  middle 
of  the  second  quarter  of  memory, 
where  the  banks  are  selected. 


You  might  think  that  this 
would  cause  a  problem  on  a  130XE, 
since  it  has  to  switch  that  bank  of 
memory  on  and  off.  But  it's  not  a 
problem,  because  one  of  those  five 
banks  is  assigned  to  be  main  mem- 
ory— that  is,  the  memory  corre- 
sponding to  the  only  memory  at 
that  address  in  a  1200XL  or  800XL. 
The  DOS  2.5  RAM  disk  never 
touches  that  bank;  it  limits  itself  to 
the  other  four  banks. 

Okay,  enough  background  on 
the  130XE,  Is  there  a  way  to  use  the 
extra  16K  memory  of  the  800XL  as  a 
RAM  disk?  Yes,  but  it  isn't  easy. 
That  extra  memory  is  addressed 
from  $C000  to  $FFFF  (but  see  be- 
low for  an  exception).  Aside  from 
the  fact  that  DOS  2.5  wasn't  de- 
signed to  see  a  RAM  disk  in  this 
address  range,  this  range  is  shared 
with  the  operating  system  ROMs 
and  the  hardware  input/ output  area. 
Shared?  Yep,  more  bank  selection. 
And  this  bank  is  even  trickier  to 
use. 

To  Be  Continued 

Just  as  things  start  to  get  interesting, 
I  run  out  of  room.  There  is  much 
more  to  this  topic.  For  example,  we 
haven't  even  looked  for  the  missing 
2K  of  RAM  in  the  XLs  and  XEs, 
have  we?  And  wouldn't  it  be  nice  to 
consider  the  effects  of  some  of  the 
add-on  memory  kits  for  the  XLs? 
Until  next  month,  let  me  tantalize 
you  with  some  tidbits. 

The  RAM  disk  which  emulates 
drive  8  (D8:)  is  one  of  the  nice 
features  of  DOS  2.5.  One  of  the  not- 
so-nice  features  is  that  the  RAM 
disk  is  a/ways  D8:.  Many,  many 
programs  which  want  two  disk 
drives  assume  that  the  second  drive 
is  D2;.  Wouldn't  it  be  nice  if  we 
could  change  the  RAM  disk's  drive 
number?  Say  no  more.  The  BASIC 
program  listings  below  accomplish 
this  for  you. 

Program  1,  "REPLACE.BAS," 
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is  for  use  with  the  RAMDISK.COM 
program  supplied  with  DOS  2.5. 
After  you  boot  the  system  with 
DOS  2.5  and  RAMDISK.COM,  this 
program  simply  changes  all  the 
magic  memory  locations  in  DOS  so 
that  the  RAM  disk  is  now  addressed 
as  D2:.  (Or  you  can  change  lines 
190  and  260  to  make  the  RAM  disk 
emulate  any  drive  from  D2:  to  D8:.) 
If  you  use  Program  1,  the  DOS  files 
DUP.SYS  and  MEM.SAV  will  be  on 
D2:,  but  otherwise  DOS  2.5  will  be 
unchanged. 

Program   2,    "MAKERAM- 
.BAS,"  serves  another  purpose.  As 
you've  probably  noticed,  DUP.SYS 
and  MEM.SAV  take  up  a  lot  of 
room  on  the  RAM  disk.  True,  keep- 
ing them  on  the  RAM  disk  does 
make  DOS  easier  to  use.  However, 
if  your  program  won't  use  DOS  but 
could  use  more  RAM  disk  space, 
why  not  leave  them  on  Dl:?  That's 
exactly   what   MAKERAM.BAS 
does.  It  initializes  and  installs  the 
RAM  disk,  but  copies  no  files  to  it — 
all  499  RAM  disk  sectors  are  avail- 
able for  your  use.  Naturally,  you 
may  choose  any  drive  number  for 
the  RAM  disk  (see  lines  190  and 
260  again).  And,  although  we  could 
change  this  program  to  allow  it  to 
work   a/fer  RAMDISK.COM   has 
booted,  it  is  a  waste  of  time  since 
this  program  reinitializes  the  RAM 
disk,    anyway.    Therefore,    you 
should  erase  or  rename  the  RAM- 
DISK.COM  file  when  using  MA- 
KERAM.BAS (but  don't  erase  your 
only  copy  of  RAMDISK.COM). 

Finally,  Program  3,  "MAKE- 
RAM.SUB,"  simply  changes  Pro- 
gram 2  into  a  subroutine  which  you 
can  include  in  your  own  programs. 
Use  it  anytime  you  want  your  pro- 
gram to  initialize  a  blank  RAM 
disk. 

For  instructions  on  entering  these  listings, 
please  refer  to  "COMPUTE!'s  Guide  to  Typing 
In  Programs"  in  this  issue  of  compute!. 

Program  1:  REPLACE.BAS 


HF  100 

REM 

M  1  10 

REM  --«.-  REPLACE  BftS 

Ffl  270 

H  Dsa  a 

HP  280 

HH  120 

REM 

DC  130 

REM  A  program  to  repl 
aca  DB)  Hlth 

PI  290 

a   140 

REM  Dm  Mhmra    n  i  ■  an 

K   300 

y  dr  i  v> 

NE  310 

tL  1S0 

REM  number  -fron  2  to 

HJ  320 

7  (or  Bven  S) 

}f   330 

KL  1&0 

REM 

CE340 

At  170 

IF  PEEK<1B02)<128  THE 
N  PRINT  "hio  R«mDi«k  i 

IK3S« 

NN  180 

a  190 

HE  200 
AE  210 

All  220 

S5  230 

NF  240 

Li;250 


nmtal I  ad !  " i S 

REM 

RAMDRIVENUM 

nga  this  as 

REM 

l'?20,RA 
2933, Rfl 
3439,48 


lB02,PEEKtl802) 


Chi 


01:260 


FA  270 

HP  280 

PI  290 

AC  300 

KE  310 

HJ  320 

FI  330 

HL  340 

JH  330 

C6  360 

IJ  370 

HP  380 

Kl!390 

BC  400 

LB  4  10 

6E  420 

60  430 

POKE 
POKE 
POKE 
NUM 

POKE 
128 

REM  (for 

Ina  260,  >•• 
th»  Atari ") 

IF  PEEK(IB02 

AMDRIVENUM-2 

E  1802,3 

DIM  INIT«<4) 

FDR  I-l  TO  4 

A 

INIT« (IJ-CHR 

EXT  I 

DATA  104,76, 

JUNK-USRtADR 

REM 

REM  Varlfy  l 

REM 

DIM  DRIVE»(6 

DRIVE«-"Dnt » 

DRIVE* (2,2) - 

AMDRIVENUM) 

REM 

OPEN  #1,6,0, 

TRAP  430 

SET  »l,BVTEl 

«(BYTE) ) 

SOTO  410 

END 


TOP 

2tREn  Cha 
desl red 

MDRIVENUM 
MDRIVENUM 
+RAMDRIve 


ng«s  to  1 
"Mappi  ng 

)-l  AND  R 
THEN  POK 


iREAD  DAT 
• (DATA) iN 

224,  7 

f INIT*) ) 

t  workad 

) 

.  »" 

CHR« (4a+R 

DRIVE* 
PRINT  CHR 


Program  2:  MAKERAM.BAS 


HF  100  REM 
SA  110  REM 


MAKERAM.BAS 


HH  120 
m  130 

FI  140 

BL  150 

HL  160 
CD  170 


m  180 

CD  190 

m  200 

K  210 

AK  220 

DC  230 

Ml  240 

LIE  250 


IK  260 


REM 

REM  A  progran  to  mat 

up  a  RAM  disk  on 

REM  Dm,  Hhara  n  ia  a 

ny  driva 

REM  nufflbar  from  2  to 

7  (or  avan  8) 

REM 

IF  PEEK<ie02) >t27  THE 

N  PRINT  -RamDiak  alra 

ady  inatal 1  ad ! " I  STOP 

REM 

RAMDRIVENUM-2|REM  Cha 

nga  thia  aa  daairad 

REM 

POKE  1920, RAMDRIVENUM 

POKE  2953, RAMDRIVENUM 

POKE  5439,49 

REM  (lina  230  forcaa 

DUP.SYS  to  drlva  i> 

REM  (for  changaa  to  1 

Ina  260,  aaa  "Mapping 

tha  Atari") 
IF  PEEK(ie02)-l  AND  R 
AMDRIVENUM-2  THEN  POK 
E  1802,3 
DIM  INIT«(4) 
FDR  I-l  TO  4iREAD  DAT 
A 

INIT* (I) -CHR«(DATA> iN 
EXT  I 

DATA     104,76,224,7 
JLJNK-USR  (ADR  (INIT*)  } 
REM 

DIM  DRIVE«(6) 
DRIVE»-"Dni ». »" 
DRIVE*(2,2)-CHR«(48+R 
AMDRIVENUM) 


our  n* 


Varify  It  worked 


KM  360  REM 

HL  370  REM  Inltializa 

H  dlak 

HP  380  REM 

CJ390  XID    2S4,«1, 0,0, DRIVE* 

HI  400  REM 

FH4  10  REM 

W 420  REM 

i;f430  OPEN    #1,6,0, DRIVE* 

61(440  TRAP     470 

LF  450  SET     «l,BYTEiPRINT    CHR 

*(BYTE) } 

GII460  eOTO     4S0 

HC  470  END 


Program  3:  MAKERAM.SUB 

BD  10  ODSUB  9000:REM  Your  pr 

ograin  hrara 
DJ  20  END 
CM  9000  REM 
KB  9010  REM  »  — -  MAKERAM.SUB 

KP  9020  REM 

HP  9030  REM  Suhroutlna  to  sa 

t  up  RAM  disk 
LB  9040  REM 

EE  9030  IF  PEEK{ia02)  >127  TH 
EN  PRINT  "Diak  alraa 

dy  instal lad !": STOP 
CI  9060  POKE  1920,2 
DA  9070  POKE  2953,2 
60  9080  POKE  5439,49 
£19090  POKE  1802,3 
FI9100  DIM  RAMDISK»(4> 
PD9110  FOR  N-1  TO  4SREAD  X 
EI9120  RAMDISK*  (N)=CHR*  (X)  s 

NEXT  N 
Dfl9130  DATA  104,76,224,7 
1!F9140  JUNK«.USR(ADR(RAMDISK 

«>  ) 
Pfl91S0  REM  (any  handy  atrin 

g  can  ba  uaad  instaa 

d  of  DRIVE*) 
HP  9160  DIM  DRIVE*  (6) 
CC917a  DRIVE»-"D2s  t.  »" 
FP91B0  XIO  254, #1,0,0, DRIVE 

* 
LD9190  RETURN  0 


Attention  Programmers 

COMPUTEI  magazine  is  currently 

looking  for  quality  articles  on 
Commodore,  Atari,  Apple, 
and  IBM  computers  (including 
tine  Commodore  Amiga  and 
Atari  ST),  If  you  have  an 
interesting  home  application, 
educational  program, 
programming  utility,  or  game, 
submit  it  to  COMPUTE!,  P.O. 
Box  5406,  Greensboro,  NC 
27403.  Or  write  for  a  copy  of 
our  "Writer's  Guidelines." 


August  1986    COMPUTEI     107 


^^T??^ 


IBM  Personal  Computing 


Donald  B,  Trivette 


WW  II  And  KQ  III 


GATO  is  one  of  the  most  interesting 
games  to  come  along  for  the  IBM 
PC,  PCjr,  and  compatibles  in  the 
last  year.  It's  a  strategy  game  that 
puts  you  in  the  captain's  seat  of  a 
World  War  II  Gflfo-class  submarine. 
Your  mission  may  be  to  rescue  a 
downed  pilot,  resupply  a  friendly 
coast  watcher,  or  sink  an  enemy 
fleet.  Once  you  receive  your  orders, 
you  must  pilot  your  boat  through 
enemy  waters  and  around  danger- 
ous reefs  using  radar,  charts,  and 
the  periscope — if  you  dare  to  risk 
detection. 

Although  GATO  is  billed  as  a 
subniarine  simulation,  it's  not  a 
sinfulation  like  Microsoft's  Flight 
Simulator.  You  won't  actually  learn 
to  operate  a  sub  or  to  navigate  under- 
water. Nevertheless,  there  are  am- 
ple controls — depth,  speed,  heading, 
fuel,  battery,  torpedo,  periscope — 
to  keep  your  fingers  busy. 

You  won't  master  GATO  in  a 
few  days — or  even  weeks.  The  lev- 
el of  difficulty  is  set  by  a  program 
parameter:  At  level  0,  where  I  play, 
Morse-code  messages  are  translated 
into  English  and  enemy  ships  leave 
a  convenient  trace  on  the  patrol 
chart.  (Even  so,  my  record  isn't 
good — 1  complete  only  half  of  my 
assigned  missions.)  At  level  9  {for 
Annapolis  graduates,  I  think),  you'd 
better  know  Morse  code  and  be  able 
to  make  plots  of  enemy  activity. 

This  isn't  a  game  where  you 
can  shoot  at  everything  in  sight. 
Successfully  completing  the  mis- 
sion is  the  most  important  goal,  and 
accomplishing  that  requires  the  use 
of  strategy  to  survive. 

CATO  requires  a  PC  with 
color/graphics  adapter,  128K  of 
RAM,  and  a  color  monitor,  or  a  PCjr 
with  a  color  monitor.  It  is  produced 
by  Spectrum  HoloByte,  Inc.  ($39.95). 

A  Peek  At  A  Sequel 

The  King's  Qi/es/ series  of  adventure 
games  has  one  of  the  largest  foilow- 


ings  of  any  entertainment  program 
for  the  IBM.  Whenever  I  write 
about  K/ng's  Quest,  I  get  lots  of  let- 
ters— some  of  them  quite  unique. 
(One  lady  wanted  to  give  her  hus- 
band the  gnome's  name  for  his 
birthday.)  Anyway,  someone  on 
the  inside  has  slipped  me  a  copy  of 
the  design  specifications  and  some 
memos  between  the  designer  and 
programmers  for  King's  Quest  111, 
which  Sierra  On-Line  is  working  on 
for  release  in  late  fall.  I  won't  spoil 
your  fun  by  revealing  too  many 
secrets,  but  I'll  drop  some  hints  of 
what's  to  come  in  this  eagerly 
awaited  sequel.  These  notes  also 
provide  some  insight  into  how  a 
major  adventure  game  is  carefully 
planned  and  executed  by  a  whole 
team  of  designers,  artists,  and  pro- 
grammers. It's  almost  like  story- 
boarding  a  film  script. 

From  the  designer's  notes: 
"I'm  going  to  try  to  make  /f(?imore 
difficult  to  solve.. .I'd  like  it  to  be 
able  to  do  its  own  mapping,  but 
Ken  and  Jeff  will  have  to  be  talked 
into  this. ..I  would  like  to  try  to  add 
more  arcade-type  action,  but  still 
retain  the  flavor  of  an  adventure 
game."  The  notes  also  indicate  that 
there  will  be  a  new  routine  to  draw 
the  screens  because  some  players 
(including  myself)  are  getting  im- 
portant clues  by  watching  what  is 
drawn  last  in  a  scene. 

"Included  in  the  documenta- 
tion will  be  the  magic  spell  book, 
Sorcery  of  Old."  The  notes  mention 
numerous  spells,  including  one  to 
transform  someone  into  a  cat  and 
another  to  brew  up  a  storm.  It  also 
mentions  an  invisibility  ointment 
made  from  toad  spittle,  and  the 
new  cast  of  characters:  Medusa,  a 
huge  spider,  bandits,  pirates,  and 
an  abominable  snowman  who  lives 
in  the  mountains  and  will  drag  you 
into  his  cave  and  devour  you  for 
dinner.  The  notes  indicate  that  the 
best  way  to  deal  with  the  snowman 


is  to  use  a  protective  spell. 

Here  is  the  designer's  descrip- 
tion of  Room  25:  "Ocean  side. 
Looks  like  north  Calif,  coastline. 
All,  part,  or  none  of  the  town  will 
be  in  this  picture,  depending  on 
how  you  draw  it.  There  will  be  a 
dock  or  pier  going  out  into  the 
ocean  from  the  town.  Later  on  in 
the  game,  there  will  be  a  pirate  ship 
that  is  tied  to  the  dock.  The  pirate 
ship  will  probably  be  two  screens 
long.  You  can  get  ocean  water  from 
this  room  for  a  spell. ..I'm  not  sure 
yet.  Maybe,  we  will  see  a  pirate 
walking  around  on  the  deck  while  it 
is  tied  to  the  dock  and  his  mates  are 
in  the  tavern.  Or  maybe  we'll  see  an 
old  man  sitting  outside  the  tavern, 
or  maybe  a  woman  coming  out  of 
the  store  or  something.  Just  to  make 
the  town  look  like  it  is  inhabited." 

The  notes  also  indicate  that 
Room  38  (scene  38)  is  inside  the 
bandit's  hideout,  and  that  a  bandit 
will  always  be  there  to  protect  a  bin. 
What  the  bin  contains  is  unclear. 

If  my  Sierra  On-Line  contact, 
known  as  Deep  Ego,  can  come  up 
with  more,  I'll  let  you  know. 


Here's  a  tip  for  those  of  you  who 
are  running  Microsoft's  Fiigitt  Simu- 
lator ov\  the  IBM  PCjr.  On  some  TV 
sets  the  colors  will  fade  in  and  out. 
This  occurs  only  with  version  2.11 
or  earlier,  only  on  the  PCjr,  and 
only  with  some  TV  sets.  Neverthe- 
less, what  looks  like  a  hardware 
problem  is  really  a  bug  in  Flight 
Simulator  If  you  call  your  Microsoft 
customer  service  number,  they  have 
a  fix.  © 
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AmigaView 


Charles  Brannon,  Program  Editor 


A  New  Operating  System 


Computer  software  continually 
evolves,  and  operating  systems  are 
no  different.  The  operating  system 
is  the  core  software  of  your  com- 
puter, responsible  for  managing  the 
hardware  and  providing  routines 
for  other  programs  to  draw  upon. 
The  Amiga  operating  system,  for 
example,  contains  routines  that 
support  menus,  windows,  memory 
management,  and  multitasking. 

Most  computer  operating  sys- 
tems are  stored  in  Read  Only  Mem- 
ory (ROM),  a  permanent,  nonalter- 
able  form  of  memory.  In  contrast, 
most  application  software  is  pro- 
vided on  disk,  which  is  loaded  into 
Random  Access  Memory  (RAM). 
When  updates  to  the  software  be- 
come necessary  (which  is  almost 
always  the  case),  the  publisher  can 
simply  ship  new  disks. 

The  only  way  to  upgrade  soft- 
ware stored  on  ROM,  though,  is  to 
pry  out  the  original  ROM  chips  in- 
side the  computer  and  replace  them 
with  new  ROMs.  This  usually  re- 
quires dealer  servicing. 

RAM  Emulating  ROM 

The  Amiga  uses  a  different  tech- 
nique. It  contains  only  a  small 
amount  of  ROM  which  loads  the 
bulk  of  the  operating  system  from 
the  Kickstart  disk  into  a  special  area 
of  RAM  called  the  Writeable  Con- 
trol Store  (WCS).  Once  this  RAM  is 
filled,  a  special  switch  write-protects 
it — effectively  turning  the  RAM 
into  ROM  as  long  as  the  computer 
is  turned  on.  The  WCS  cannot  be 
corrupted  by  an  errant  application 
program  or  even  a  system  crash. 

The  WCS  was  originally  in- 
tended as  a  stopgap  measure  until 
the  operating  system  could  be 
firmed  up  and  burned  into  ROM 
chips.  But  soon  after  the  computer 
was  introduced,  Amiga  recognized 
the  value  of  an  easily  upgradable 
operating  system  and  decided  to 
stick  with  the  WCS.  One  upgrade 
has    already    been    released:    The 


original  version  1.0  was  replaced 
with  version  1.1  in  late  1985,  Ver- 
sion 1.1  added  new  features  and 
cured  legions  of  bugs  that  plagued 
1.0,  but  it  is  still  not  perfect. 

Over  the  past  few  months, 
Amiga  has  been  working  very  hard 
to  finish  version  1.2.  This  upgrade 
was  developed  at  first  to  work  with 
the  European  Amiga,  but  includes 
numerous  bug  fixes  and  improve- 
ments as  well.  At  this  writing  (mid- 
May),  we  have  been  exploring  a 
prerelease  version  of  1.2,  which 
might  be  available  by  the  time  you 
read  this.  Note  that  some  features 
we'll  describe  may  be  changed  in 
the  final  release  version. 

The  most  noticeable  improve- 
ment in  1.2  is  the  much  faster  disk 
access  due  to  a  technique  known  as 
caching.  A  disk  cache  buffers  disk 
reads  so  that  frequently  accessed 
areas  of  the  disk  are  copied  into 
RAM.  From  then  on,  the  frequently 
accessed  files  are  read  from  RAM 
rather  than  from  the  drive.  It's  simi- 
lar to  using  the  RAM  disk,  except 
that  output  is  always  stored  on 
disk,  not  in  RAM,  so  this  technique 
is  much  safer  than  using  a  RAM 
disk.  If  the  power  is  interrupted, 
you  haven't  lost  your  data. 

Version  1.2  lets  you  choose 
how  much  memory  to  allocate  for 
this  disk  cache — the  more  memory 
you  set  aside,  the  faster  the  disk 
access.  The  disk  directory  is  also 
buffered,  so  directory-based  opera- 
tions such  as  Open  requesters  or  an 
AmigaDOS  DIR  command  work 
much  faster.  As  a  tradeoff,  the  mo- 
mentary disk  access  that  takes  place 
when  you  first  insert  a  disk  lasts  a 
little  longer,  since  all  directories 
and  subdirectories  are  buffered. 
And,  of  course,  there's  less  RAM 
available  for  applications,  since  the 
cache  consumes  some  memory. 

A  Better  Workbench 

The  Workbench  is  improved,  too. 
The  horizontal  lines  in  a  window's 


title  bar  have  been  thickened  to 
reduce  flickering  in  the  interlaced 
modes.  When  entering  text  into  a 
text  gadget,  you  can  reposition  the 
cursor  by  pointing  and  clicking  the 
mouse.  You  can  use  Left  Amiga-V 
and  -B  as  shortcuts  for  the  affirma- 
tive and  negative  choices  in  a  two- 
button  requester.  When  you  drag 
icons,  you  move  an  actual  copy  of 
the  icon  rather  than  a  crossed  circle. 
This  even  works  with  multiple  se- 
lections, and  is  really  impressive 
when  you  are  dragging  dozens  of 
icons.  Opening  a  Workbench  win- 
dow is  no  longer  an  excuse  for  a 
coffee  break:  Icons  now  pop  up 
quickly,  with  little  disk  access.  Any 
reference  to  the  RAM:  device  cre- 
ates an  icon  for  the  RAM  disk  on 
the  Workbench  screen,  especially 
handy  for  one-drive  systems. 

A  new  Preferences  tool  lets 
you  select  serial  port  parameters 
such  as  data  bits,  stop  bits,  and  so 
on,  greatly  simplifying  the  use  of  a 
serial  printer  or  modem.  There's 
also  a  toggle  switch  for  Workbench 
Interlace  On/Off.  When  Interlace  is 
turned  on,  the  Workbench  changes 
to  a  400-line  screen  with  twice  the 
vertical  resolution,  giving  50  lines 
of  text. 

There  is  a  new  Notepad  on  the 
Workbench  disk,  enhanced  with  an 
Edit  menu  permitting  copy/ cut/ 
paste  and  search-and-replace.  You 
can  set  up  the  Notepad  so  it  calls  up 
only  one  font  when  loaded,  then 
bring  in  the  fonts  later  from  a  menu 
if  you  wish.  You  can  select  either 
character  wrap  or  word-wrap,  and 
you  can  intermix  various  fonts  and 
styles  in  the  same  note.  Scroll  bars 
let  you  move  quickly  through  your 
text.  The  Notepad  is  now  almost  a 
complete  word  processor. 

All  in  all,  the  new  operating 
system  is  very  exciting.  It  almost 
makes  the  Amiga  a  whole  different 
machine:  faster,  smoother,  and 
more  reliable  than  ever.  © 
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INSIGHT:  ST 


Bill  Wilkinson 


GEM  Quirks 


The  Atari  ST  is  a  computer  with 
excellent  hardware,  but  all  too 
often  problems  with  its  system  soft- 
ware obscure  this  excellence.  Ad- 
mittedly, most  users  will  never 
actually  see  these  problems,  since 
software  developers  work  hard  to 
circumvent  them.  Luckily,  applica- 
tion programmers  can  make  a  real 
contribution  to  the  users'  percep- 
tions of  a  machine. 

For  example,  consider  the  ST's 
floppy  disk  drives.  In  theory  they 
are  among  the  fastest  available  for 
any  microcomputer.  And  indeed, 
when  you  load  a  program,  the 
speed  is  impressive.  However, 
when  a  program  starts  performing 
file  input/output  using  ordinary  re- 
cord sizes,  there  is  so  much  operat- 
ing system  overhead  to  overcome 
that  the  ST  performance  is  only  fair. 
Creating  a  new  file  with  512-byte 
records  is  only  a  little  more  than 
twice  as  fast  on  an  ST  as  it  is  on  an 
Atari  400/800,  XL,  or  XE. 

Possible  solution:  The  applica- 
tion program  can  read  and  write 
very  large  blocks  to  the  disk  (for 
example,  4K  or  bigger),  performing 
the  file  buffering  itself.  Suddenly 
the  performance  is  quite  good 
again.  This  requires  a  little  more 
work  on  the  part  of  the  application 
programmer,  but  the  net  effect  is 
pleasing  for  the  user. 

Similarly,  using  a  hard  disk  on 
the  ST  is  an  experience  not  to  be 
forgotten.  For  example,  compiling 
an  average-length  program  with 
Personal  Pascal  usually  takes  one  to 
two  minutes  using  floppies.  When 
using  a  hard  disk,  those  times  im- 
prove to  10  or  15  seconds.  That's 
because  the  hard  disk  port  on  the 
ST  is  capable  of  transferring  more 
than  one  megabyte  per  second. 

But  something  happens  as  the 
hard  disk  starts  filling  up.  Access 
times  can  double  before  the  disk  is 
even  half  full.  Again,  there's  a  solu- 
tion: Partition  the  20-megabyte  disk 


into  four  smaller,  five-megabyte 
"logical"  drives.  And,  since  the  ST 
uses  subdirectories  so  successfully, 
this  is  usually  a  practical  solution. 

Gullible  GEM 

Perhaps  the  biggest  problem  with 
GEM  (the  Graphics  Environment 
Manager)  is  that  it  is  too  gullible — 
tell  it  a  lie  and  it  believes  you.  Con- 
sider what  happens  on  an  Atari 
400/800,  XL,  or  XE  when  an  Atari 
BASIC  programmer  uses  a  PRINT 
statement  to  display  a  message 
which  is  wider  than  the  screen:  The 
text  wraps  around  to  the  next  line. 

When  programming  with 
GEM,  the  easiest  way  to  display 
something  on  the  screen  is  via  an 
a/erf  box.  This  is  the  small  window 
which  pops  up  to  report  errors  and 
so  forth.  To  display  an  alert  box,  a 
programmer  simply  defines  a  string 
of  the  proper  form  and  makes  an 
easy  call  to  a  GEM  routine.  But  if 
the  programmer  errs  when  defining 
that  string  (for  example,  by  entering 
too  many  characters  or  leaving  out 
some  special  characters),  crash! 
Time  to  hit  the  old  reset  button. 

Now,  granted,  the  proper  form 
of  that  string  is  easy  to  validate 
before  calling  GEM,  so  a  well-written 
application  program  will  never  re- 
veal this  particular  problem  to  its 
user.  However,  this  is  symptomatic 
of  much  of  GEM.  Application  pro- 
grammers must  do  a  lot  of  work  to 
insure  that  GEM  is  given  only  legal 
values  to  work  with.  GEM  does  not 
seem  to  follow  the  GIGO  rule  (Gar- 
bage In,  Garbage  Out);  with  GEM  it 
is  more  like  GIC  (Garbage  In, 
Crash!).  So  be  careful  if  you're  writ- 
ing programs  on  the  ST,  Avoid 
crashes  by  double-checking  all  data 
before  calling  GEM  routines. 

The  Software  Explosion 

To  a  beginner,  the  ST  with  its  GEM 
operating  system  looks  complex. 
And,  truly,  there  is  a  lot  to  learn 
before    you    can    write    programs 


which  show  off  all  the  capabilities 
of  the  ST.  But,  despite  my  com- 
ments above,  experienced  pro- 
grammers find  that  GEM  does  so 
much  of  the  work  for  them  that 
they  can  develop  fairly  complex 
programs  relatively  quickly.  Too, 
the  capabilities  and  accessibility  of 
higher-level  languages  for  the  ST 
(such  as  C,  Pascal,  and  Modula-2) 
have  made  programmers  more  pro- 
ductive. As  a  result,  there  is  argu- 
ably more  software  available  for  the 
ST,  at  this  point  in  its  life,  than  for 
any  previous  computer  at  a  compa- 
rable point  in  its  life. 

For  instance,  one  year  after  the 
Macintosh  was  introduced,  it  had 
far  fewer  programs  available  than 
the  ST  has  about  one  year  after  its 
introduction.  Not  only  that,  the  ST 
programs  tend  to  be  considerably 
less  expensive  than  their  Macintosh 
counterparts. 

One  of  the  reasons  so  much 
software  is  appearing  is  that  the 
cost  of  developing  for  an  ST  is  rela- 
tively low.  A  part-time  ST  program- 
mer can  have  a  full-blown  ST 
development  system  for  not  much 
over  $2,000  (including  hard  disk, 
printer,  color  and  monochrome 
monitors,  development  software, 
and  so  forth).  In  the  early  days  of 
the  Mac,  $10,000  was  more  the  or- 
der of  the  day,  so  development 
tended  to  be  restricted  to  estab- 
lished software  companies. 

The  flip  side  of  this  coin  is  that 
the  quantity  of  high-quality  soft- 
ware for  the  ST  is  certainly  not 
greater  than  what  was  available  for 
the  Macintosh.  Since  most  early 
Mac  developers  were  major  soft- 
ware companies,  their  quality  stan- 
dards were  generally  higher  than 
that  of  part-time  hackers. 

Bottom  line:  Try  to  see  a  demo 
of  any  ST  software  you  are  plan- 
ning to  purchase.  There  are  a  lot  of 
excellent  ST  programs,  but  there 
are  also  some  turkeys.  @ 
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Programming  the  Tl 


C,  Regena 


An  Amortization  Schedule 


Interest  rates  have  been  plunging 
lately,  and  it  seems  like  home  mort- 
gages and  refinancing  are  very  pop- 
ular topics  for  newspaper  articles. 
Recently  I  was  reading  a  question- 
and-answer  article  in  which  the 
reader  asked  for  a  program  for  his 
home  computer  to  print  an  amorti- 
zation schedule  for  a  home  mort- 
gage. The  columnist  suggested  a 
particular  program  which  was  easy 
to  use  and  costs  only  $99. 1  couldn't 
believe  someone  would  spend  $99 
for  a  program  that  uses  one  or  two 
basic  computations!  So,  for  the 
price  of  this  magazine,  here  is  such 
a  program:  "Loan  Amortization." 

It's  certainly  easy  to  use.  Just 
enter  the  amount  of  money  you 
want  to  borrow,  omitting  the  dollar 
sign  and  comma  (i.e.,  type  50000 
instead  of  $50,000).  Next,  enter  the 
interest  rate,  such  as  13  for  13  per- 
cent or  9.5  for  nine  and  a  half  per- 
cent. Finally,  enter  the  number  of 
years  for  the  loan.  Most  loans  are 
for  a  certain  number  of  whole 
years,  such  as  25  or  30,  so  this 
program  is  based  on  12  monthly 
payments  per  year  rather  than  cal- 
culating a  number  of  months.  The 
program  then  tells  you  what  your 
monthly  payment  will  be.  (Of 
course,  this  figure  doesn't  include 
property  taxes,  insurance,  or  con- 
dominium fees.) 

You  may  then  choose  to  see 
the  amortizahon  schedule  on  the 
screen  or  print  out  a  paper  copy.  If 
you  have  a  printer,  be  sure  to  use 
the  correct  printer  configuration  in 
line  710,  the  OPEN  statement.  If 
you  don't  want  to  see  the  amortiza- 
tion schedule,  you  may  calculate 
another  loan  or  end  the  program. 

Converting  Math  To  BASIC 

Among  other  things.  Loan  Amorti- 
zation demonstrates  how  easy  it 
can  be  to  convert  a  mathematical 
formula  into  a  BASIC  program. 
Any  ordinary  formula  can  be  con- 


verted by  using  the  +  and  —  signs 
for  addition  and  subtraction,  the  * 
sign  for  multiplication,  /  for  divi- 
sion, and  sets  of  parentheses  where 
necessary  to  group  mathematical 
operations. 

Use  PRINT  and  INPUT  state- 
ments to  prompt  numbers  from  the 
user.  You  may  want  to  use  some  IF- 
THEN  statements  to  make  sure  the 
INPUT  values  are  within  reason- 
able limits  for  the  formula.  In  Loan 
Amortization,  all  numbers  entered 
must  be  positive.  The  amount  of  the 
loan  has  to  be  six  digits  or  less  (not 
counting  the  cents)  to  help  limit  the 
printing  variables.  The  number  of 
years  is  from  1  to  50. 

Once  your  program  has  all  the 
numbers  it  needs,  calculate  the  for- 
mula and  PRINT  the  answer.  The 
computer,  of  course,  is  ideal  for 
handling  repetitious  calculations, 
such  as  this  amortization  schedule. 

Any  economics  book  has  for- 
mulas for  various  calculations  in- 
volving money — savings  accounts, 
sinking  fund  deposits,  present 
worth  factors,  and  so  forth.  In  this 
case,  to  find  the  monthly  payment  I 
used  the  capital  recovery  factor 
formula: 
Kl+irN/d+D'N-l 

where  /  =  interest  and  A'^  =  the 
number  of  payments.  To  make  it 
easier  to  type  the  program  without 
errors,  I  used  the  variable  D  for 
interest,  since  the  letter  1  can  be 
confused  with  the  numeral  1.  Then 
the  program  converts  the  percentage 
to  a  monthly  decimal,  J=D/1200. 
The  factor  with  the  exponent  is 
used  twice,  so  I  calculated  it  as  F  in 
line  490.  Line  500  then  calculates 
the  capital  recovery  factor,  CRF. 

How  To  Pause  Printing 

The  FOR-NEXT  loop  in  lines  800- 
1050  prints  the  amortization  sched- 
ule with  the  monthly  payment 
PAY.  Part  of  the  payment  goes  to 
principal  (the  variable  PR),  and  part 


is  interest  (the  variable  II).  The  bal- 
ance is  the  original  principal  minus 
the  principal  part  of  the  payment, 
P.  Lines  1060-1200  calculate  and 
print  the  last  payment,  which  may 
be  slightly  different  than  the  regu- 
lar monthly  payment  because  of 
rounding  to  the  cent. 

The  printing  on  the  screen  in- 
cludes only  the  month  number, 
principal  and  interest,  then  balance. 
To  pause  the  printing  while  it  is 
scrolling,  hold  down  any  key. 
When  you  release  the  key,  the 
schedule  will  continue.  To  make 
this  work,  lines  1010-1040  scan  the 
keyboard  in  each  loop.  If  a  key  is 
not  pressed,  the  program  goes  to 
the  next  calculation.  You  may  want 
to  print  different  items  or  adjust  the 
printing  to  better  suit  your  needs. 

All  of  the  PRINT  #  statements 
send  text  to  the  printer.  The  vari- 
ables LI,  L2,  and  L3  are  lengths 
used  in  the  TAB  functions  to  line  up 
the  columns.  The  variable  R  holds 
the  user's  choice:  1,  2,  3,  or  4.  If  the 
choice  is  1,  the  program  skips  all 
the  statements  that  pertain  to  the 
printer. 

The  subroutine  in  lines  1250- 
1330  converts  a  number  in  the  vari- 
able A  to  a  string  so  that  a  number 
can  be  written  in  money  form  with 
two  decimal  places  (using  zeros 
where  necessary).  The  numbers  are 
rounded  to  the  nearest  cent. 

If  you  have  TI  Extended  BASIC 
or  are  converting  this  program  to 
another  version  of  BASIC,  PRINT 
USING  would  be  easier  to  use  than 
this  subroutine.  For  example, 
PRINT  USING  ####.##  will  round 
a  number  to  two  decimal  places  and 
will  also  right-justify  numbers  for 
printing  straight  columns. 

Loan  Amortization 

100  REM   flMDRTI ZATION 

110  CALL  CLEAR 

120  PRINT  "THIS  PROSRAM  WIL 

L  CALCULATE" 
130  PRINT  "A  MONTHLY  PAYMEN 

T  FOR  A" 
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140  PRINT  "GIVEN  PRINCIPAL 

BORROWED" 
150  PRINT  "AT  A  CERTAIN  INT 

EREST  RATE. " 
160  PRINT  :: "ENTER  AMOUNT  B 

ORRDWED. " 
170  INPUT  PR 
1B0  IF  PP>0     THEN  210 
190  PRINT  "PLEASE  ENTER  AMD 

UNT  >  0" 
200  GOTO  lh0 
210  IF  PP<'?9<?*?99.01  THEN  25 

0 
220  PRINT  "THIS  PROGRAM  IS 

FDR  LOANS" 
230  PRINT  "LESS  THAN  «999'?9 

9.  " 
240  BQTO  160 
250  PRINT  !! "ENTER  INTEREST 

RATE  IN  X. " 
260  INPUT  D 
270  IF  D>=0  THEN  300 
280  PRINT  "PLEASE  USE  POSIT 

IVE  PERCENT. " 
290  GOTO  250 
300  PRINT  : : "ENTER  NUMBER  0 

F  YEARS  FOR" 
310  PRINT  "LOAN." 
320  INPUT  Y 
330  IF  {Y>=1 ) +(Y<51 ) =-2  THE 

N  370 
340  PRINT  "THIS  PROBRAM  IS 

FOR  LOANS" 
330  PRINT  "FROM  1  YEAR  TO  5 

0  YEARS. " 
360  GOTO  300 
370  IF  Y=INT(Y!THEN  400 
380  PRINT  "NO  FRACTIONAL  YE 

ARS  PLEASE. " 
390  GOTO  300 
400  CALL  CLEAR 

410  PRINT  "AMOUNT  BORROWED: 
».pp 

420  PRINT  !" INTEREST  RATE: 

";D; "PERCENT" 
430  J=D/1200 
440  PRINT  "TIME  IN  YEARS:   " 

;Y 

450  N=12«Y 

460  IF  D< >0  THEN  490 

470  CRF=1/N 

4«0  SOTO  510 

490  F^d-t-Jj-^N 

500  CRF=J«F/  (F-1  ) 

310  PRINT  STR«{N);"  MONTHLY 

PAYMENTS" 
320  A-PP*CRF 
330  G05UB  1250 
540  PAY=A 
530  PAY«=A« 
560  PRINT  "MONTHLY  PAYMENT 

=  »";A« 
570  PRINT  s: "PRINT  AMORTIZA 

TIDN?" 
580  PRINT  i"l  YES,  ON  SCREE 

N" 
590  PRINT  "2  YES,  ON  PRINTE 

R" 
600  PRINT  "3  NO,  TRY  ANOTHE 

R  LOAN" 
610  PRINT  "4  NO,  END  PROBRfl 

M" 
620  CALL  KEY(0,K,S) 
630  IF  <K<49)+(K>52) THEN  62 

0 
640  CALL  CLEAR 
650  R-K-48 
660  ON  R  BOTO  670,670,110,1 

340 
670  fl=PP 
6B0  SOSUB  1250 
690  P"A 

700  IF  R=l  THEN  750 
710  OPEN  #1:  "RS232.BA'=600" 
720  PRINT  #1: "AMOUNT  BORROW 


'INTEREST  RATE: 


■MONTHLY  PAYMENT 


PRINCIPAL 

: TAB  (  12)  :  "B 


ED:    «";A« 
730  PRINT  ttl: "INTEREST  RATE 

:   "  ; D;  "PERCENT" 
740  PRINT  #1::: "MONTH      PA 

YMENT" ; TAB (30) ; "PRINCIP 

AL" i  TAB  <50)  ;  " INTEREST" ; 

TAB(65) ; "BALANCE": : : 
750  PRINT  "TO  PAUSE  PRINTIN 

B,  HOLD  ANY  KEY  DOWN. 

RELEASE  KEY  TO     CDNTIN 

UE.  "3  :  : 
760  PRINT  "AMOUNT  BORROWED: 

";A» 
770  PRINT 

;D 

760  PRINT 

:  »"jPAY* 
790  PRINT  : " 

INTEREST 
ALANCE": : 
B00  FOR  M=l  TO  N-1 
810  M*="    "!<STR«(M) 
820  M»=SEG«CM«, LEN(M*)-2,3) 
B30  A=J»P 
B40  GOSUB  1250 
BS0  II«=A« 
B60  II-A 
B70  L2=6-L 
080  A=PAY-II 
B90  GOSUB  1250 
900  PR»=A* 
910  PR-A 
920  Ll=6-L 
930  A=P-PR 
940  GOSUB  1250 
950  P=A 
960  P»=A» 
970  L3=6-L 

980  PRINT  M*;"    "(PRtjTABd 
a  +  L2)  ;  I  I»: TAB ( 10  +  L3) ;P* 
990  IF  R=l  THEN  1010 
1000  PRINT  #1:"  ";M*;TAB(11 

)  5  PAY*; TAB(31+L1  )  ;PR«; 

TAB(51+L2) ; I I»; TAB (65+ 

L3> ;P« 
1010  CALL  KEY(0,K,S) 
1020  IF  S<1  THEN  1050 
1030  CALL  KEY(0,K,S) 
1040  IF  S<0  THEN  1030 
1050  NEXT  M 
1060  M«-"    "8cSTR«(M) 
1070  M»-SED*(M»,LEN (M») -2, 3) 
1080  A^'JtP 
1090  GOSUB  1250 
1100  II«=AC 
1110  II-A 
1120  L2=6-L 
1130  A=II+P 
1140  GOSUB  1250 
1150  PAY=A 
1160  PAY»=AS 
1170  Ll=6-L 
11S0  PRINT  M*}"   ";P*;TAB(1 

B+L2) ; I I»: TAB ( 15) ; "0" 
1190  IF  R=l  THEN  1220 
1200  PRINT  #1:"  ";M«;TABC11 

) ;PAY«; TAB(31+L1 > ; P$ ; T 

AB (51+L2) i I I«; TAD(6B) ; 

"0" 
1210  CLOSE  «1 

1220  PRINT  :s "PRESS  A  KEY" 
1230  CALL  KEY(0,K,S) 
1240  IF  S«0  THEN  1230  ELSE 

570 
1250  A=INT (A»100+. 5) 
1260  A«=STR»(A) 
1270  L=LEN(A$) 
1280  IF  L>=2  THEN  1310 
1290  A»="0"J<A* 
1300  L-=2 
1310  A»  =  SE6»  (A*,  l,L-2)5<".  "!< 

SE6«(A«,L-1,2) 
1320  A=VAL(A«) 
1330  RETURN 
1340  END  @ 


ATTENTION  T.t.  99/4A  OWNERS 

•  Diskettes  -  59C  each!  Your  choice  SS  or 
DD 

•  51 2K  Now  Available  for  the  99/4A! 

•  99/8  Level  4  Computer  Upgrade  Now 
Available 

•  Over  1500  Hardv^are  and  Software 
Accessories  at  Similar  Savings 

THE  WORLD'S  LARGEST 
COMPUTER  ASSISTANCE  GROUP 

Now  sanfing  over  35,000  members  worldwide 
with  the  best  m  lachnical  assistance,  service, 
and  products  lor  the  Texas  Instrument  99/4A 
Computer. 

To  become  a  member  and  receive  newsletters, 
catalog,  technical  assistance  and  membership 
package,  send  $10.00  lor  a  ONE  Year  Merrtber- 
ship  to: 

99 /4A  National  Assiatance  Group 

National  Headquarters 

P.O.  Box  290812 

Ft.  Lauderdale,  Florida  33329 

Attention  Memliership  Division 

For  Further  Information  Call  24  Hours 

(305)  583-0467 


^^ 


•  with  Hub  Rings 

•  Write  Protect  Tabs 

•  Envelopei 

•  Uier  10  Labels 

•  In  Factory  Sealed 
Polv  Packs  ol  10 

lYOU  GET  EVERYTHING  BUT  THE  BOX) 
Prices  are  per  Disk 


OTY 

50 

100 

500 

1000 

SSDD 

.59 

.53 

.50 

.47 

DSDD 

.62 

.58 

.55 

.52 

Umrary  Cut  Holds  15  Diskeltes.    .     .OnlySLOOl 
plus  SOCS&H 

TIte  too  File  Only  J10.95  plus  $2  00  S4H 

IOO'/d  error  free  —  LIFETIME  WAflHANTY 
Mm  ordar  Sasoo  Add  10%  lor  less  iMan  50 
diskettes.  Stripping  and  Handling;  S4.00  per  lOO 
diskettes.  Reduced  shipping  tor  larger  quanti- 
tios  COD  addS4  00  Cashorcerlilied  check. 
Corilinenlai  USA  3 


COD 


r 


J 


Precision  Data  Products 

IVU  H.n  X.lh7.  Grand  KapiJi.  Ml  49SIK 
(6I(.)  4S2-U57  •  .Michigan  I -KI)0-6.t2-24AH 
OuiMjc  Michipan  l■!0O■25S^»2S 
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Peace  of  Mind 

Only  $3.00  a  year!" 

HALONTTE 


10  Year  Manulacturefs  Guarantee  with  a 
price  under  =30.  (1  lb.  Unit) 

reach  guoianlee  yeai  only  '3  00) 

Halonite-A  patented  Wend  ol  1301/121 1 

EipeUed  as  a  vapor  —  Sale  around  food 

Will  not  harm  computers  and  peripherals. 

—Sale  tor  ALL  (lies  — 
To  Order  Item  *AH1 0  >29.95 

By  iPhone  (•3.00  Stiipplng 

■  &  Handling) 
2',  Dla.  I  7!'.  H 
X  6'<.  W.  - 
1  lb.  Cliaiae 
,^                                       Hem  #AH15  '39,95 

In  Marfland  (^3  50  Shippi  ng 

1-3OO-83H300  iMcmdllng) 

H«        2!i  Dla  I  9'.'.  H 

^"3<>i  ~-:r™       l5T.  W. - 

Sizes  WrlJe  5=?:  .^       1  5  lb.  Ctyatge 

For  Inlo  &  n "iir  l,lS  Item  »AH22 159.95 

Orders:  IT^?  jf  ('350  Stlippino 

ffUd  -^I~    I  ft  Handing) 

PO  Box  215  ---?-  Jr  y/t  Diai  10%  Hx 

Bath.  PA  18014  ■   ■■:  6  W.  - 

(mPAacld4%Tai)  ,  2,2  lb  Charge 


News  &  Products 


Penguin  Software 
Announces  Price  Drop 

Penguin  Software  has  announced  an 
across-the-board  price  drop  for  its  soft- 
ware line.  All  programs  in  its  COM- 
PREHEND Interactive  Novel  series  will 
be  $17.95  for  5 'A -inch  disks  (Apple, 
Commodore  64,  IBM)  and  $19.95  for 
S'/z-inch  disks  (Atari  ST,  Macintosh, 
and  Amiga).  This  line  includes  such 
titles  as  Crimson  Crown,  Oo-Topos,  and 
Transylvania.  Suggested  retail  price  for 
Graphics  Magician  and  Complete  Graph- 
ics System  will  be  $39.95  ($49.95  for 
Macintosh  version). 

Other  graphics  utilities,  such  as  Pa- 
per Graphics,  Transitions,  and  Cat 
Graphics  will  be  priced  at  $19.95. 
Graphics  Magician  Junior  (Apple  and 
Commodore)  will  be  $19.95.  Disk  Re- 
pair Kit  will  be  $12.95.  In  the  Home 
series.  Home  Data  Manager  will  be 
priced  at  $24,95,  and  Home  Connection 
(with  $15  free  CompuServe  time)  will 
be  $29.95.  Also,  some  backlist  titles  will 
be  available  for  $8.95. 
Penguin  Software,  2600  Keslinger  Rd., 
P.O.  Box  311,  Geneva,  IL  60134. 
Circle  Reader  Service  Number  MO. 


New  Reading,  Social 
Studies  Software 

CBS  Interactive  Learning  has  intro- 
duced The  Novel  Approach:  Lord  of  the 
Flies,  the  first  title  in  the  Novel  Ap- 
proach computer  software  series  devel- 
oped by  Media  Basics  for  Apple,  IBM, 
and  Commodore  eight-bit  systems. 
Each  program  in  the  series  focuses  on  a 
popular  literary  classic  frequently  stud- 
ied in  junior  and  senior  high  school. 
Designed  to  help  students  develop  or 
maintain  interest  in  reading  and  to 
build  critical  reading  skills,  each  title  in 
the  Novel  Approach  can  be  used  as  a 
springboard  for  classroom  discussion  or 
independent  study.  Four  additional 
Novel  Approach  titles  are  planned  for 
release  in  the  fall  of  1986.  They  are 
Animal  Farm  by  George  Orwell,  A  Tale 
of  Two  Cities  by  Charles  Dickens,  The 
Call  of  the  Wild  by  Jack  London,  and 
Remeo  and  Juliet  by  William  Shake- 
speare. 

The  Novel  Approach  series  moti- 
vates students  to  read  by  enhancing 


their  understanding  and  appreciation  of 
literature.  Each  program  helps  students 
focus  on  character  motivation,  plot  de- 
velopment, symbolism,  narrative  tech- 
niques, and  vocabulary.  Rather  than 
replacing  the  reading  of  the  book  itself, 
the  programs  are  meant  to  be  used 
before,  during,  and  after  reading.  Each 
includes  three  separate  learning  activi- 
ties; The  Discoverer,  designed  to  pique 
interest  before  reading;  The  Explorer,  a 
self-paced  series  of  questions  and  an- 
swers that  enhance  understanding;  and 
The  Master,  designed  to  test  students' 
knowledge  of  the  story  after  it  has  been 
read. 

Built  into  each  program  in  the 
Novel  Approach  series  is  a  comprehen- 
sive reference  guide.  The  Book  Scanner. 
It  provides  background  information  on 
each  book,  a  profile  of  the  author,  and 
an  annotated  bibliography  of  related 


books.  Errors  are  tracked,  and  correc- 
tions with  explanations  are  provided. 

The  Novel  Approach:  Lord  of  the 
Flies  comes  with  a  program  guide, 
teacher's  guide,  and  backup  disk.  It  is 
available  for  the  Apple  11  series  (48K 
RAM  minimum).  Commodore  64,  and 
IBM-PC  and  PCjr  with  128K  RAM  and 
graphics  board  for  $59.95. 

CBS  also  has  introduced  Continents 
and  Countries,  a  program  for  use  within 
the  social  studies  curriculum  in  grades 
5-12.  Designed  by  Neosoft,  the  pro- 
gram helps  students  build  and  test  their 
knowledge  of  the  nations  and  peoples 
of  the  world  through  self-paced  learn- 
ing activities.  Its  database  covers  over 
140  countries  and  includes  facts  on 
each  country's  major  religion,  lan- 
guage, per  capita  income,  land  area, 
form  of  government,  and  population. 
Continents  and  Countries,  available  for 


c«r>  •  inc"  •  BKsv 
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One  disk.  25  business  programs,  $19.95 

The  Intelligent  Software  Package  is  the  one  product  for  your  Commo- 
dore that  can  take  care  of  all  your  data  processing  needs. 
Customorawrita:  ". . .  accoladesfartheautturs.  This  is  as  siok  a  deal 
as  I  tmve  seen  end  nrx)re  than  adequBte  for  al  except  fancy  presentations. 
The  best  thing  is  the  ease  of  use  .  .  " 

"I  have  come  to  consider  these  programs  among  the  most  valuatile 
pieces  of  software  I  own. " 

There  are  no  hidden  fees  for  shipping  or  documentation,  and  no  dutis  to 
join.  The  package  is  not  putilic  domein  software,  and  is  sold  only  direct 
to  customers  by  mail:  it  supports  al  avaiable  printers,  and  wR  rui  on  my 
Commodore  cornputer  [except  Amiga]  with  a  minimum  of  1 0k  RAM, 
including  the  C-1 2B  in  C-1 28  mode. 
What  you  get  wtisn  you  order  the  Package: 

D«tab— — A  complete  database  man- 
ager. Al  fiete  completely  user^tefriabie. 
Can  be  used  for  any  nmiier  of  tasits,  indud- 


DBMarg* — facilitates  relational  D/B 
tjons. 


ing  acootntng,  chedtbook  and  tax  records. 
r™*ig  fets,  wvxrturf  control,  cfflalog  man- 
lenance,  or  bs  an  etectroric  rokxtex.  A  cus- 
tomer writes:  "I  am  sspedety  impressed 
with  Datsbese,  and  have  used  tea  replace 
B  half-dozen  (Xher  'datat^s'-cypepro^-ams 
t  had  been  using." 

Word  Pmc— M^-A  fiJ-featirod  menu- 
cHven  word  processor.  AIeiws  fii  contrd 
over  wargns.  spacrn,  pegrig,  indantstion. 
endjustificabon.  "hUghfyrgoaitiiHiJaJ."  — 
Mdrite  Software  Sazette.  "f^oviblasgoot^ 
tiesK  feaares. "  —  Compute's  Gazette. 
C«pyealD--An  electronic  spK^adsfieet. 
"Ba^lant  program  for  budgeting,  Bstima!:- 
ing.  or  any  math-onentsd  uaa  .  .  .  Aet 
vmrthtiKmonei.Hr^recommsndBd."  — 
Midnfte  Software  Bazette. 
RapottOan— creates  ftrm  letters,  TTiaftig 
labiBS,  etc. 

RBpartMarga— creates  statements 
"nvoices. 

Basball  Stau — comples  team  batting 
statistics. 

Indu— ifidexes  VJfP's  taxt  files. 
Wordcount — cotrtts  words  in  a  text  fife. 
WPConwwt— converts  files  to  other  WP 
formats. 


;,  DBStatS— analyro  D/B  files. 
ASCII — converts  text  ffcs  hto  plug  an 
files. 

CtMcfcbaDii— recondies  cfieckbooii . 
Inwwtofv    Maintains  invento-y  records. 
Pupar  Rout*— A/R  for  paper  route. 
Loon  Analysl*— computes  fnancs  terms, 
prints  sctiediJes. 

IVaolramii  lamputeabreefcevenenelysis. 
Doproelatlon — creates  depreciation 
sctiediies. 

Lab  alar — creates  lotels. 
FU*  Coptar    copies  sequential,  program 
fil^. 

Corralatkin — cakaiates  statistical  cor- 
relation. 

Aleo  other  Database  end  Word  RrKessor 
utiities. 

To  ordar,  send  name,  eddress,  and 
S19.95  to  address  below.  Ftesse  specifTy 
regtia-  (1 541  /1 571  /9040/4040/a031  ] 
[**,  S050  dek.  or  cassette  [cassette  not 
aveiable  for  Plus  4  or  C-1  B].  Add  S3  for 
credit  card  or  COD  orders:  Calf,  residents 
add  B% .  No  persorel  checks  from  outside 
USA.  A  samplrig  of  program  output  e  ava^ 
able  for  £1 .  Tear  thia  ad  iMit  and  kaap  It 
hondfl 


,  ...  _,     _^  Box  A  Dept.  T-8 

Intelligent  Software  san  Ansetrrx},  ca  94960 

Quality  Software  since  1982  (41 5]  457-61 53 
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the  Apple  II  series  with  48K  RAM  mini- 
mum, has  a  suggested  retail  price  of 
$49.95. 

CBS  Interactive  Learning,  One  Fawcett 
PL,  Greenmch,  CT  06836. 
Circle  Reader  Service  Number  221. 


Baseball  And  Bridge 
For  Apple 

Random  House  has  announced  Apple 
II  conversion  of  two  programs,  APBA 
Major  League  Players  Baseball  uses  actu- 
al statistics  from  the  1984  or  1985  base- 
ball season  and  lets  users  start  their 
own  leagues,  draft  teams  from  a  list  of 
676  big-league  players,  or  play  with  the 
actual  rosters  for  all  26  teams  from  each 
season.  The  program  is  now  available 
for  Apple  lie  and  He  with  128K,  80- 
column  card,  and  two  disk  drives  for 
$59.95. 

Toumarrtent  Bridge  offers  competi- 
tion and  practice  for  the  serious  bridge 
player.  It  is  available  for  the  Apple  II +, 
He,  and  Ik  for  $49.95.  Random  House 
also  is  developing  a  word  processor  for 
Apple  II  computers  that  uses  a  Macin- 
tosh- style  user  interface.  A  fall  release 
is  planned. 

Random  House,  Electrotiic  Publishing  Di- 
vision, 201  E.  50th  St.,  New  York,  NY 
10022. 
Circle  Reader  Service  Number  222. 


Foreign  Language 
Detective  Game 

Gessler  Educational  Software  has  an- 
nounced French,  Spanish,  and  German 
versions  of  Tom  Snyder's  bestselling 
program  Snooper  Troops.  The  program 
helps  children  develop  their  foreign 
language  vocabularies  and  reasoning 
skills  by  having  them  take  notes,  draw 
maps,  and  organize  information. 

The  object  of  the  Spanish  and  Ger- 
man versions  is  for  the  player  to  deter- 
mine who  committed  a  crime  in  the  old 
mansion  and  why.  The  player  must 
question  the  suspects  and  remember 
each  correct  password  and  clue  in  order 
to  solve  the  mystery.  Available  for  the 
Commodore  64,  the  Spanish  and  Ger- 
man versions  retail  for  $39.95.  In  the 
French  version,  available  for  Apple 
II +  ,  He,  and  lie  at  $49.95,  the  player's 
mission  is  to  find  the  villain  who  fled 
with  Lily  the  Dolphin. 
Gessler  Educational  Software,  900  Broad- 
way, New  York,  NY  10003. 
Circle  Reader  Service  Number  223. 

More  New  Releases  From 
Ttie  U.K. 

Firebird  Licensees,  a  British  software 
licensing  company  which  made  a  nice 
entry  into  the  U.S.  market  with  Elite, 


recently  introduced  several  new  prod- 
ucts. 

The  Pawn  is  a  rich  text-and- 
graphics  adventure  previously  avail- 
able for  the  Atari  ST,  but  now  shipping 
for  the  Commodore  64  and  128  (in 
native  128  mode).  Set  in  the  mythical 
world  of  Kerovnia,  the  game  provides 
the  player  with  an  intricate  network  of 
plots  and  subplots  with  many  objec- 
tives, 

New  members  of  the  Firebird 
"flippy"  family  (disks  with  one  pro- 
gram on  each  side)  are  Battle  of  Britain/ 
Battle  of  Midway  (Commodore  64, 
$19,95),  strategy/war  games  that  break 
out  into  arcade-style  games  at  certain 
points  in  the  action;  Iwo  jima/Falklands 
'82  (Commodore  64,  $19,95);  and  Chi- 
mera/Mercenary (Atari  800/130, 
$19.95). 

Firebird  Licensees,  P.O.  Box  49,  Ramsey, 
Nj  07U6. 

Circle  Reader  Service  Number  224. 


ST,  Amiga  Programs 

Classic  Image  is  releasing  two  programs 
each  for  the  Atari  ST -series  computers 
and  the  Commodore  Amiga, 

Disk  Library  is  a  tool  for  keeping 
track  of  files  on  your  disks.  Files,  fold- 
ers, and  subdirectories  can  be  catego- 
rized and  cross-referenced.  Lists  of  files 
and  folders  can  be  displayed  on  the 
screen  or  dumped  to  a  printer.  Disks 
can  be  searched  by  any  category,  and 
the  entire  library  is  automatically  up- 
dated as  new  disks  are  added.  Disk 
Library  works  with  single-  or  multiple- 
drive  systems  and  is  available  for  both 
the  ST  and  Amiga  for  $49.95. 

Diablo  is  an  original  game  that 
combines  animation  with  strategy.  The 
screen  is  filled  with  mazelike  tracks  that 
disappear  in  sections  as  a  ball  rolls  over 
them.  The  player's  goal  is  to  keep  the 
ball  rolling  as  long  as  possible  without 
running  out  of  track.  Versions  for  the 
ST  and  Amiga  retail  for  $29.95  each. 
Classic  Image,  510  Rhode  Island  Ave., 
Cherry  Hill,  N]  08002. 

Circle  Reader  Service  Number  225. 


Turboctiarged  Amiga 

Computer  System  Associates  has  intro- 
duced a  series  of  add-on  circuit  boards 
that  modify  a  Commodore  Amiga  for 
high-speed  operation  using  the  Motor- 
ola 32-bit  68020  microprocessor. 

A  specially  modified  Turbo- Amiga 
runs  at  a  CPU  (central  processing  unit) 
clock  speed  of  14  megahertz,  contains 
up  to  2.5  megabytes  of  32-bit  memory, 
and  can  accept  an  optional  Motorola 
68881  math  coprocessor.  The  68020 
modification  alone  increases  overall 
performance  by  about  60  percent.  By 


adding  512K  of  32-bit  memory,  per- 
formance increases  about  140  percent. 
Applications  which  use  intensive  float- 
ing-point math  can  run  up  to  40  times 
faster.  Complete  Turbo- Amiga  systems 
start  at  $4,980. 

Computer  System  Associates,  7564  Trade 
St.,  San  Diego,  CA  92121. 
Circle  Reader  Service  Number  226. 


ST,  Amiga  Golf  Game 

Accolade  has  announced  that  versions 
of  its  golf-stmulation  game  will  be 
available  this  summer  for  the  Atari  ST- 
series  and  Commodore  Amiga  com- 
puters. 

Mean  18:  Ultimate  Golf  uses  3-D 
animation  to  simulate  golfing  on  three 
famous  courses — Pebble  Beach,  St.  An- 
drews, and  Augusta  National.  In  addi- 
tion, you  can  construct  your  own 
courses.  A  bird's-eye  view  shows  the 
position  of  your  ball  after  each  shot. 
Different  levels  of  difficultly  accommo- 
date all  kinds  of  players.  The  ST  and 
Amiga  versions  of  Mean  18  will  retail 
for  $49.95  each. 

Accolade,  20833  Stevens  Creek  Blvd.,  Cu- 
pertino, CA  95014. 
Circle  Reader  Service  Number  227. 


Recreational  Software 

Baudville  is  releasing  three  new  home 
and  educational  programs  for  the  Com- 
modore 64,  Atari  400/800/XL/XE,  Ap- 
ple II  series,  IBM  PC  and  compatibles. 
Atari  ST  series.  Commodore  Amiga, 
and  Apple  Macintosh. 

Video  Vegas  recreates  authentic  ca- 
sino games  such  as  blackjack,  draw 
poker,  keno,  and  slot  machines.  Guitar 
Wizard  helps  both  novice  and  experi- 
enced musicians  learn  and  analyze 
scales,  chords,  and  tunings  for  all  kinds 
of  fretted  string  instruments.  Ted  Bear's 
Rainy  Day  Games  is  a  three-in-one  card 
game  package  for  youngsters.  It  con- 
tains computer  versions  of  concentra- 
tion, old  maid,  and  go  fish. 

All  of  the  programs  are  scheduled 
for  release  this  fall  at  prices  ranging 
from  $29.95  to  $34.95, 
Baudville,  1001  Medical  Park  Dr.,  SE, 
Grand  Rapids,  MI  49506. 

Circle  Reader  Service  Number  228. 


Color  Printer  For  Amiga,  ST 

Okidata  has  released  adapters  to  make 
its  Okimate  20  color  thermal-transfer 
printer  work  with  the  Commodore 
Amiga  and  Atari  ST-series  computers. 
The  Plug  'N  Print  Modules  for  the 
Amiga  and  ST  include  a  cable,  cartridge 
ribbons,  paper,  and  instructions.  The 
Okimate  20  has  a  24-element  thermal 
printhead  that  reproduces  more  than 
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^TARI  1 30XE 

ATARI  130XE  Super  Computer  Package 

130XE  Computer  1027  Printer 

1050  Disk  Drive  Atariwnter  + 

Call  lor  individual  &  super  package  price 

AtARI  PRINTER  INTERFACES 

UprSnl  A 54.95     MPF  IISO ,.,5^.95 

Supra  1000E  Modem 44.95 

Atari  XM-301  Modem .39.95 


ATARI  1 30-XE  SUPER 
PRINTER  PACKAGES 

NX-10  Printer  &.  U-Print  A 299 

Panasonic  1091  &  U-Print  A 299 

Siipei  Piinia  Pjdages  im  a  eilia  shppii;  diaijes  ir  oelii  taril 


ATARI  130XE 

BRDDEHeUND 

Prim  Shop 28.95 

Karaleka 2095 

PnnI  Shop 

Graph  I.  It  Of  III  . . ,   1995 
PinlShopComp 2795 

iNFOCOM 

See  Commodore  $4  sec- 
!ion  for  stems  and  pfiCBS 

ELECTRONIC  ARTS 

flrchon  II 2i  95 

flrchon 19  95 

Seven  Cil.  of  Gold....  24  95 

ShylOM 2495 

PmballCons!  1995 

One  on  One 24  95 

Super  BoulPer  Dash  . .  1995 
Chessmasler  2000  . . .  27.95 
Racing  Destruchon ...  24  95 

MiCflOPROSE 

SieniSeivire 2395 

Ciiinship 23  95 

Accroiet 23  95 

F15  Strike  Eagle  ....  23» 
Kennedy  Appioach...  2395 
Conllict/Vieinam  ....  27.95 
SSi 

See  Commodore  64  sec- 
tiOf^  lor  Items  and  prices 


SOFTWARE 

MISCELIANEQUS  I30XE 

MindPursuii 2395 

Neve;.EnilingSloiy  .    2395 

FooShiiky 2796 

Syncalc 3295 

Typeseiier 27  96 

Ultima  III 37.95 

Ultima  IV 4195 

Raid  Over  Moscow .. .  2795 

Fight  Night 2395 

Hardball  2395 

Flight  Simulator  II  ...  34.95 
AlleinalE  Realily  ....  2795 

Fleet  System  (I  4995 

Page  Designer 23.95 

Megalonlll  ...  1995 

RudSei  Stamp 2395 

Halley  Project 23.95 

Syntile 32  95 

Beactiead  II 27.95 

Music  Studio 20  95 

Wizards  Clown 2795 

Geliyshurg  39  95 

Island  Capei 3395 

Basic  XE 5295 

Action 4995 

MAC65XL 4995 

Paper  Clip  X£ 3995 


ATARI  520ST* 

Atari  S20ST-RGB  Systetn Call 

Atari  520ST-Monochrome  Sys  .  .  .  Call 
SFSIiiDS/dOl  Megabyte  Disk  Dr . . .  209 

We  wartamy  si!  520S  T  computers  pu  f  chased 
from  ComputAbility- lor  mnaty  days. 
'Please  cail  lor  alock  avaifatjility  on  Atari  ST 
products  belofe  oreterittg  by  mad. 


MISCELLANEOUS  ST 


.34  95 

■(ings  Oiieii  II 34  95 

ST  Talk 17,95 

HSDBase 6995 

Typesetter  ST 27  95 

HabadeK  Phone  3995 

Woid  Invaders 24  95 

MeantSGoll 3495 

Financial  Cook  book     34  95 

Braiaccos 34.95 

MichlronUlihlies 4195 

Exploding  Fisi 3495 

Black  Cauldron 27.95 

Prinlmasier  ST 2795 

PC  Intercom   8995 

Final  Word 94  95 

Hen 2795 

Mudpics 2795 

Sundog 2795 

Fhpsrde 2795 

Soltsporjl 2795 

VlPPiolessrorial  ....  11995 

UltmiaH 39.95 

Perry  Mason 34.95 

Oegas 27  95 

fa(enhcri451  34  95 

Personal  Pascal  54  95 

Checkmindei  54  95 

Prinimasiei 27.95 

An  Gallery  I  2035 

Compubrtdge 2095 

General  Ledger 64.95 

Major  Motron 2795 

Pawn  2795 

DFT 34  95 

Unrversell  4995 

Mai;rodesk 2095 

Rubber  Siamp 2795 

Kissed  34.95 

Cards 2795 

Rouge 2795 


Amazon 3195 

DOS  Shell 34  95 

Kissed  2795 

9  Princess/Amber 34  95 

Hacker 29  95 

Dragonworld 3195 

Treasure  Island 27  95 

Wizard  oIOz 27  95 

Transylvannra 37  95 

Borrowed  Trme 34  95 

Mi-Term 3495 

Regent  lAford 34.'9S 

flegenl  Spell 34  95 

flegenlBase Call 

Galdrrjnner  ,..,.,,.  .2795 

Trmo  Bandit 27.95 

Zrjomracks  . , 4995 

Easy  Draw 9995 

Mrndshadow 34  95 

Phanlasie 27  95 

Hippopotamus Call 

Supra  Hard  Drrue Call 

Supra  1200  ST  Modem .  159 
QMI 1200  ST  Modern  ...  159 
PC  Board  Designer  ....Call 

Wocom See  IBM 

Apshai  Tfilogy  ..... .2795 

M-Vision ,  ...27  95 

DBMan 6996 

Small  Bns  Pig    84  95 

Cornerman 34  95 

ALT   34  95 

M-Copy 54  95 

lAlmtei  Games 27,95 

Wrnme  The  Pooh 1995 

Silent  Service Call 

Fligtil  Simulalnr  II Call 

Music  Siudro  3995 

Phanlasie 2795 

1  Megabyte  Upgrade, . .  175 
Exlended  Warranty ....  Call 


AMIGA 

Call  far  Hardware  ar}d  Add-on  Penpherats  pnces 

AMIGA  SOFTWARE 


Hacker 2995 

MrndshadPv* 2995 

Mastertype 27  95 

VIP  Protessronal  ....  1S95 
Transylvannra   .....  ,27% 

Crimson  Crown 27  95 

Racle: 2995 

Analyze 9995 

Qnlrne .4995 

Artie  Fox  2995 

Bralaccus  , . ,, 34,95 

Adventure  Const 2995 

Deluxe  Video Call 

Deluxe  Paint 6995 

Intocom  See  IBM 

Monkey  Business 1995 

Keyboard  Cadel 2795 

Rouge 27  95 

Apshai  Trilogy  . . , . .  .27  95 
Delta  Patrol 19  95 


Maxrcom   3995 

Maxidesk 4995 

Maxiplan  11995 

One  on  One 2995 

7Crties/Gold 29  95 

Skylox 23  95 

Marble  Madness 2995 

Relurn/Allamis 2995 

Archon 2995 

Aegis  Anrmator M  95 

Exploding  Fist 27  96 

Deluxe  Print 69  96 

Music  Studro  3996 

Borrowed  Time 2995 

Financial  Cookbook     3195 

Scrrbble  6995 

HalleysPioiecl 2995 

Kid  Talk  3995 

Speller  Bee ,3995 

Gijnio 34  95 


APPLE 


SOFTWARE 

BflOBERBUND  SIB-TECH 

Print  Shop ..3995 

Prini  Shop  Graphics 

I  II  or  III 1795 

PrrnlShopComp 2795 

Karaielsa 2195 

ELECTBONIC  ARTS 

Bards  Talc 2996 

Auio-Duel  Jl  96 

Skylox 2795 

Lords  ot  Conquest  ,,.2795 

UlhmalV  39.95 

Moebius 3995 

Amnesia Call 

EPYX 

Winlei  Games 24  95 

Sumnlei  Games  II 24  95 

INFOCOIVI 

See  (BM  section  tor  items 
anrt  p'lcos 

MICRCPRDSE 

SesAtan  T30XE seciionfot 
II6WS  and  pnces 


Wizardry/Diam    2395 

Wrjardry/Legacv 2795 

Wr^ardry/Provrng 3395 

SSI 

See  Commodore 64  sec- 
tion for  items  &  prices. 
APPLE  MISCELLANEOUS 

Gamemaker  3J  95 

Hardball 2195 

Sundog 27  95 

Newsroom 39  95 

Clip  Alt  Vol  I 2095 

Clip  Alt  Vol  II 27  95 

Gato 27  95 

KungFu  Waster 2595 

Karaie  Champ 25  95 

Strip  Poker 2395 

Math  Blaster 34  95 

Frghl  Night 24  95 

Phanlasie  11  27  95 

RamPO 27  95 

Amer.  Challenge 27.95 

Crossword  Magrc  ...  .34  95 


IBM  PC 

Corona  PC-400  Compatibte Call 

Corona  Portable  PC  Compatible  . . .  Call 

IBM  PC  SOFTWARE 

BRQDERBUNO  INFOCDM 

39  95 
37  95 
49  95 
2995 


,  2395 
.2795 
.27.95 
.27  96 


Prrri'  SilQp 

Pi  11"  Sh'JU  Graph  I 
aaukSlnrcl  Wrrler 
Antirnl  Art  ol  War 

MICROPROSE 
F  15  Strike  Eagle  . 
Kennedy  Approach 

Aerojet  

Silent  Service 

IBM  MISCELLANEOUS 

Mi;an  IB 34  95 

Gato 27  96 

Wizardry 3995 

SIrrp  Poker 2795 

Jet    .,34  95 

Newsroom  .........  39  95 

Super  bowl  Sunday  . .  24  95 

Hon-.e  Pak 31 96 

Aller  Ego 34  95 

Hacker.  2995 


Borrowed  Time.. 
Isgor  Portfolio  . . 
Typing  Tutor  .... 


.  27  95 
164  95 
,  34  95 


Deadline  34  95 

SlarcroSS  34  95 

Zoikl 27  95 

Zotkllor  hi. 29  95 

Wrlness 2796 

Srispcnded , ,  34  95 

Planeitall... 27  96 

Sorcerer 29  96 

Seastalksr  .27  95 

Cutthroats .,  27  95 

Hrichrker 27,95 

Suspecl 2995 

Wrshbrrnjet 27,95 

Inlidet  2995 

Enchanter 27  95 

Spellbreaker 34  95 

Mrnd  Forever  34  95 

Ballyhoo  ....         ..27  95 

SIERRA 

Kings  Quest 34  95 

Kings  Quest  II  .,,.34  95 
Ultima  II 39  95 


COMMODORE 

COMMODORE  128 

C-t28  Compuier  Call     1670  Modem 1S 

1571  Disk  Drive  , Call     1350 Mouse  4295 

19Q2Monitor Call     1 750 5t2K Expander  ...Call 

COMMODORE  128  SOFTWARE 

SwNtcalc  w/Side 49  95    Superscript  126 59.95 


Wordwriter  •  Spell  ...49» 

Data  Manager  II 4995 

Fleet  System  III 6495 

Mach  128 34.95 

Superbase  128 6995 

King's  Quest  II 34.96 

Home  Pak 34.95 


Perfect  Writer 49.95 

Sylvia  PBrter-12a  ....49.95 

Malnx  39.95 

Perfect  Filer 49.95 

Paperback  128 34.95 

Viziwrile  128 Call 

Vizisiar  )28 Call 


COMMODORE  64 

HEW  64C  Ccrmpulcr       Call     1660  Modem 49.95 

C-64  Compuier   Call     1670  Modem 159 

1541  Disk  Drive Call     1802  Monnor Call 

COMMODORE  64/128 

SUPER  PRINTER  PKGS. 

NX-10  &  Xetec  Supergraphic. . .  .309 
Panasonic  1091  &  Xefec 

Supergraphic 309 

Legend  1080  &  Xetec 

Supergraphic 269 

Super  Printer  Packages  tiave  no  added  shipping 
or  cljargB  card  surcharges  wher^  shipped  in 
Cantincntat  USA 


Whll0  Supplies  Lait 
BAi  80  Column  Card  ... 


59.95 


XETEC  Super  Graphic 69.95 

Cardco  G-Wlz 54.95 


GENERAL 
HARDWARE 

NX-10 Call 

SG-10 Call 

SG-1S 369 

SD-10 339 

SD-15 449 

SR-10 489 

SR-15 Call 

NL-10 Call 

NL-10C Call 

PRINTERS 

Panasonic  1091  .,.,...239 

Legend  803 199 

Legend  1080 209 

Powerlype 309 

Juki  5510 .....389 

Epson  Cat! 

Panasonic  1080 215 

PRINTER  BUFFERS 

Microfazer  From  169 

UDufI  16K 79.95 

UBijfl64« 99.95 

MODEMS 

Volksmodem  1200 169 

Prometheus  1200 299 

Maxwell  1200 Call 

Maxwell  2400 Call 

Prometheus  2400 Call 

MONITORS 

ThommsonRGB 289 

Commodore  1802 Call 

Commodore  1902A 289 

GoldStar Call 

Amdek Call 

Panasonic  13000T 279 

NEC  1225 139 


COMMODORE  64  SOFTWARE 


ACCESS 

Mach  vCari 

,2195 

Leader  Board  

,27» 

Tenth  Frame , , 

,2795 

SSI 

BatLle  ol 

Antielam 

,.3295 

Fighter  Command 

(No  Alafii 

.3795 

Parvzc!  Gienidier  . . . 

..2495 

USAAF 

,   3795 

Breakthrough.' 

Ardennes  

,,37  95 

Kampgruppe , 

..37.96 

PtianiasFe  II 

.  .27.95 

BroadSrtJiK 

..24  95 

Carrier  Force   

..3795 

Comt)  Ambush .... 

.3795 

Field  ol  Fife 

iNo  Appiei 

.  .24.95 

Gemslone Warner  , 

..21.95 

Imp  GaFacluin  .... 

..24.95 

Compuier  Basi^ball  . 

..24» 

Comp  Quarierback. 

..24.95 

Wizards  Crown 

INoAlari)  ...... 

.,2?.95 

Rings  ot  ZiUrn 

(No  Atarii 

..2795 

Battle  Group 

U'Jo  Atam 

..3995 

Gellysburg 

..39.95 

MICROPROSE 

See  Alan  J30XE  secUonlor 

Items  and  prices. 

ABACUS 

Csll  tar  Hems  and  Pnces 

INFOCOM 

Zofkl 24  95 

Zork  II  01  1)1 27.95 

Deadline 29.95 

Starcross 2995 

Wilness  24.95 

Planeitall  2495 

Hitchiker 2495 

Enctianler . . , 2495 

Cullliroats  2495 

Sorcerer 2495 

Spellbreaker 29.95 

Ballyhoo 27  95 

ELECTBONIC  ARTS 

Adv  Constmcllon 2995 

Marl  Order  Monstei...  24  95 
Racing  Destiiiclion  . .  .24.95 

Ulhmalll 3795 

UlhmalV  4195 

Baids  Tale 2795 

LoidsotConQuBSI  ...2796 
Ctiessitiasler2000...,2?96 

Touchdown  FIdall 2395 

Ultimate  Wizard 24  95 

Super  Boulderdash  . .  ,1995 

Mind  Mirror  2495 

SesAlsn  t30XSsocliontor 
resi  of  Items  &  pnces 

EI>YX 

Wimer  Games 24  95 

Apshai  Trrlogy 24  95 

Fast  Load-Carl , 24  95 

Vorpal  Uiilily  2295 

Molliplan   44  95 

Movie  Monstei 2495 

World  Kaiate  t995 

Street  Sports    24  95 

Supci  Cycle  24  95 


j^  _ —  EST.  1 982 —  -       -     ^'"'"  "■'"' 

%Lontpat(ftbiLitiL^ 


WISCELLANEOUS 
COMMODORE  64 

Free/e  Frame 34  95 

Print  Shop 2895 

Cal-Kil   3495 

Superbase  64 4795 

Karateka 20.95 

Hacker 2095 

Gamer^aker  2795 

Uliimall 37  96 

Karaie  Champ 25  95 

SIrcks  ot  Death 2095 

Kung  Fu  Master 2595 

Papei  ChprSpeli 54  95 

Consultant  4195 

Spyvs  Spy  Vol  II  ,,,2395 

Inlernat  I  Hockey   1995 

PrtShopCompan 2795 

Prt  Shop  Graphics 1995 

Gato 2095 

Jet  2995 

Fleet  System  II 44  95 

Prrntmaster 24  96 

Newsroom ,,34  95 

Fonlrnastcr  II  ,,,.,,  ,3495 

Sports  Lrb  Vol  I 1995 

Geos 3995 

Hidden  Assets  Call 

Adv  MusicSyilem...5495 
SpitlrrB40 2395 

We  stock  hundreds 
of  programs  for  the 

Apple,  Atari,  C-64 
and  IBM.  II  you 

don't  see  it  here, 
don't  hesitate  to  call 


RO.  Box  17882.  Milwaukee.  Wl  53217 

OflDEFl  LINES  OPEN 

Mon-Fri  11  am  -7pra  CST 

Sat,  12p.m  -Spm  CST 


NO  SURCHARGE  FOR  MASTERCARD  &  VISA 


To  Order  Call  Toll  Free 

800-558-0003 


For  Technical  Info.,  Order  Inquiries,  or  for  Wise,  Orders 

414-351-2007 

D8DERING INFORMMION-  Please  spacily  system.  For  fast  delivery  send  cashier  s  check  or  money  order  Personal  and  company  checks  allow  14 
busrness  d  ays  10  cl  ear  School  P  0  s  welcarae  C.O.D.  charges  are  S3.00  In  Conlinenlal  U.S  A  include  S3  00  tor  sof Ivnate  orders.  4%  slir  ppitig  lot 
hardware,  minimum  S4  00  Master  Caid  and  Vrsa  Orders  please  rncludecaid  n.  exprraliondate  and  signalure  Wl  residents  please  include  5- 
salestax.  HI.  AK.  FPO.  APO  Puerto  Ricrt  and  Canadian  oitiers,  please  add  5".  stiipping,  minimum  SS.OO.  All  olher  loteign  orders  idd  15'ishipplng. 
mininsuii  SIO-OaAII  oiders  shipped  outside  the  Continental  US  A  arestirpped  tirsl  class  insured  U  S  mail  II  loreignshrpping  charges  exceed 
Itie  minimum  amouni,  you  writ  bechafgedttieadditionalamountto  get  your  packagcto  you  quickly  and  safely  Allgoodsare  new  and  include 
laclory  warranty.  Due  to  our  low  prices  all  sales  are  linal.  All  delective  mturns  must  hive  a  rsturn  auttinrlzallDn  number,  Pleasecall  (414)  351  -2007  (o 
otilarn  an  R.A  #  or  your  return  will  noi  be  accepted  Priced  and  availabilily  subject  to  change  witttoui  notice 


100  colors,  prints  text  at  80  characters 
per  second  in  standard  mode,  or  40 
characters  per  second  in  a  near-letter- 
quality  mode.  Pages  widths  are  80  col- 
umns in  standard  mode  or  132  columns 
in  condensed  mode.  Other  modes  in- 
clude expanded,  boldface,  italic,  fine 
print,  underlining,  superscripts,  and 
subscripts.  An  Okimate  20  with  Plug  'N 
Print  Module  retails  for  $268. 
Okidata,  532  Fellowship  Rd.,  Mt.  Laurel, 
NJ  08054. 
Circle  Reader  Service  Number  229. 

ST  MIDI  Software 

Electronic  Music  Publishing  House  has 
announced  new  software  to  take  ad- 
vantage of  the  Atari  ST's  built-in  MIDI 
(Musical  Instrument  Digital  Interface) 
ports. 

Midiplay  turns  an  ST  into  a  16- 
channel  digital  player/recorder  that 
gives  you  control  over  the  music's  tem- 
po, key,  and  timbre.  It  can  play  prere- 
corded music  through  the  computer  or 
a  MIDI-equipped  synthesizer,  record 
music  from  a  MIDI  synthesizer,  and 
display  the  music  on  the  screen  as  it 
plays.  It  can  also  play  music  in  slow 
motion — as  much  as  ten  times  slower 
without  altering  the  pitch.  Depending 
on  available  memory,  up  to  250,000 
MIDI  notes/events  can  be  recorded, 
and  more  than  150,000  can  be  stored  on 
a  single-sided  S'/z-inch  disk.  Midiplax/ 
responds  to  MIDI  START,  MIDI  STOP, 
and  MIDI  CONTINUE  commands  from 
a  remote  MIDI  device,  and  it  supports 
playback  looping.  Playback  time  is  ac- 
curate to  1/1000  second. 

The  synthesizer  section  turns  the 
ST  into  a  velocity-sensitive,  three- 
voice,  realtime  synthesizer  with  eight 
envelopes,  envelope-release  control, 
vibrato  speed/depth  controls,  and  stor- 
age/playback of  up  to  26  programma- 
ble sound  patches. 

Three  prerecorded  music  disks  will 
also  be  available:  C/flsS!CS  Volume  I — 
Music  of  Bach,  Beethoven,  Chopin,  De- 
bussy, and  Mozart;  Classics  Volume  II— 
The  Music  of  Amadeus  Mozart;  and  Mu- 
sic of  the  Beatles.  Other  music  disks  are 
planned  for  the  future. 

Midiplay  will  retail  for  $49.95.  It 
requires  only  an  Atari  ST;  a  MIDI- 
equipped  synthesizer  is  optional. 
Electronic  Music  Publishing  House,  2210 
Wilshire  Blvd..  Suite  488,  Santa  Monica, 
CA  90403. 

Circle  Reader  Service  Number  230. 


Print  Utility  For  Atari  ST 

Unison  World  has  introduced  an  Atari 
ST  version  of  its  bestselling  PrintMas- 
ter,  a  do-it-yourself  print  shop  that  al- 
lows easy  creation  of  cards,  signs, 
calendars,  banners,  and  stationery.  The 


program  includes  over  100  high-resolu- 
tion graphics  and  many  predefined  bor- 
der designs,  type  fonts,  styles,  and 
layout  patterns.  Menu-driven  operation 
makes  the  program  very  easy  to  use, 
even  for  someone  with  no  program- 
ming or  drawing  skills. 

Suggested  retail  price  for  the  ST 
version  is  $39.95.  Other  versions  avail- 
able include  IBM-PC  ($59.95),  Commo- 
dore 64  ($34.95),  and  Apple  11  ($39.95). 
Art  Gallery  disks  with  additional 
graphics  are  available  at  additional  cost. 
Unison  World,  3165  Adeline  St..  Berkeley, 
CA  94703. 
Circle  Reader  Service  Number  231. 

More  Stlckybear  Software 

Weekly  Reader  Software  has  added 
several  new  products  to  its  line  of  edu- 
cational software  featuring  the  familiar 
character  Stlckybear.  Stickybear  Math  2 
helps  children  practice  multiplication 
and  division  ($39,95).  Stickybear  BASIC 
is  a  gentle  introduction  to  the  BASIC 
programming  language  ($39.95).  Sticky- 
bear Printer  is  a  sophisticated,  easy-to- 
use  graphic  design  program  ($39.95). 
And  Stickybear  Car  Builder  helps  famil- 
iarize you  with  all  the  machanics  of  car 
building  by  letting  you  design,  con- 
struct, refme,  and  test  sample  automo- 
biles ($39.95). 

Weekly  Reader  Family  Software,  245  Long 
Hill  Rd.,  Middletown,  CT  06457. 
Circle  Reader  Service  Number  232. 


New  Casio  Keyboards 

Casio  has  introduced  several  new  elec- 
tronic keyboards.  The  Model  MT-55 
($149.50)  is  a  44-key  mini-keyboard 
with  twelve  instrument  sounds,  twelve 
auto-rhythms,  and  auto-chording.  This 
six-note  polyphonic  instrument  has  a 
real-time  memory  that  holds  512  melo- 
dy notes  or  can  be  used  to  store  auto- 
chording  for  ease  of  performance.  The 
Model  MT-205  ($199)  is  a  49-key  stereo 
mini-keyboard  with  twelve  instrument 
sounds.  It  features  twelve  auto-rhythms 
with  intro,  fill-in,  and  ending  patterns. 
Optional  DP-1  drum  pads  can  be 
hooked  up  for  manual  play  of  the  PCM 
drum  sound  sources.  The  unit  is  battery 
powered.  The  Model  MT-88  ($199)  is  a 
49-key  mini-keyboard  with  twelve  in- 
strument sounds,  twelve  auto-rhythms, 
and  auto-chording.  It  allows  auto-play 
of  songs  stored  in  ROM  packs.  The  key- 
board's Chord  Guide  feature  teaches  the 
user  to  play  3 -note  fingered  chords  easi- 
ly by  foUovring  lights  over  the  keyboard. 
Cflsio,  Inc.,  15  Gardner  Rd.,  Fairfield,  NJ 
07006. 

Circle  Reader  Service  Number  233. 


Briefly  Noted 

New  products  of  aU  kinds  were  intro- 
duced at  June's  Consumer  Electronics 
Show  in  Chicago.  Here  are  some  high- 
lights: 

•  SSI  introduced  its  latest  tactical 
Civil  War  game,  Gettysburg:  The  Turn- 
ing Point,  for  Apple  11  series.  Commo- 
dore 64,  Atari  400/800/1200,  and  IBM- 
PC  at  $59.95  each.  Strategic  Simulations, 
1046  N.  Rengstorff  Ave.,  Mountain  View, 
CA  94043. 

•  Star  Micronics  premiered  an  up- 
grade of  the  popular  Gemini  lOX  print- 
er, the  Gemini  II.  It  combines  the  best 
features  from  the  earlier  model  with  the 
ease-of-use  found  in  office  printers 
($329).  Star  Micronics.  200  Park  Ave., 
Suite  3510,  New  York,  NY  10166. 

•  Keypunch  Software  is  distribut- 
ing a  line  of  inexpensive  entertainment, 
educational,  and  productivity  software 
for  IBM,  Apple,  Commodore,  and  Atari. 
Prices  range  from  $6.99  to  $9.99.  Key- 
punch Software,  1221  Pioneer  Bldg.,  St. 
Paul,  MN  55101. 

•  Main  Street  Publishing  offers  a 
similar  budget  line  of  packages  previ- 
ously sold  by  other  publishers.  Prices 
range  from  $4.95  to  $9.95.  Main  Street 
Publishing,  611  W.  Travelers  Trail; 
Bumsville,  MN  55337. 

•  Mastertronlc's  latest  releases  in- 
clude Ninja,  Elektraglide,  and  Video  Pok- 
er. For  the  Commodore  64  ($9.99). 
Mastertronic  International.  73I1B  Grove 
Rd.,  Frederick,  MD  21701. 

•  BCI  introduced  Mind  Over  Mat- 
ter, which  contains  four  self-help  pro- 
grams;  "Lose  Weight,"  "Stop 
Smoking,"  "Be  Successful,"  and  "Con- 
quer Stress."  For  IBM-PC,  Apple  II, 
Commodore  64,  and  Atari  8 -bit  com- 
puters ($9.95  each).  BCI  Software,  P.O. 
Box  730,  Ringwood,  NJ  07456. 

•  First  Star  Software  premiered 
Spy  vs.  Spy  III:  Arctic  Antics  for  Commo- 
dore 64  and  48K  Atari  ($29.95)  and  64K 
Apple  ($34.95).  First  Star  Software,  18  E. 
41st  St.,  New  York.  NY  10017. 

•  Intellicreations  (formerly  Data- 
soft)  introduced  Crosscheck,  a  combina- 
tion crossword  puzzle/Scrabble  game 
for  Atari  8-bit,  Commodore  64,  Apple  II 
($29.95),  and  IBM-PC  ($39.95).  Intelli- 
creations, 19808  Nordhoff  PL.  Chats- 
worth,  CA  913U. 

•  Sharedata  premiered  the  Home 
Companion  series,  a  line  of  $9.95  pro- 
grams geared  toward  home  repair  and 
maintenance,  Sharedata,  7122  Shady 
Oak  Rd..  Eden  Prairie,  MN  55344. 
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61%  + 


A  Complete  Pro  Football 

Prediction  Program  For  The 

1986  NFL  SEASON 


Accurate  vs  'Spread'  Since  1981 

More  Features  —  More  Information  In  1986  To 

BEAT  THE  SPREAD  


FEATURES 

Predicted  Scores  Each  Week 

Season  Schedule  By  Week/Team 

Records  &  Results: 
Scores  By  Week 
Scores  By  Team 
Division  Standings 
Standings  vs  Line 
Stats  —  Accumulated  &  Average 
1983-1985  Data  Base 

Auto  Opponent  Input 
Printed  Copy  All  Screens 
Easy  Update— Playoffs/1987 

Dealer  Inquiries  Invited 


54 


95    INCLUDES  DISK,  DOCUMENTATION 
SHIPPING  &  HANDLING 

Apple  M  —  lie  —  lie 
Commodore  64  —  128 
IBM  PC,  Tandy  S  Compatibles 
TRS-80  Mill/tV 


Stats  Needed  To  Run  Program 
Available  In  Local  Newspapers 

Or 
We  Will  Furnish  Stats  By  Mail  Or  Modem 
All  20  Weeks  —  Season  Price  .  .  .  40°° 

Program  Comes  Updated  Thru  Current 
Week  Of  Season  ...  No  Extra  Charge 


ORDERS  SHIPPED  IN  2  DAYS 
PHONE  LINES  OPEN  24  HRS. 


C.O.D. 


TOLL  FREE  -  800-722-2277 
TEXAS  COLL.  -  214-586-8212 


Marathon  Software  Dept.  C 

p.  O.  BOX  1349 
JACKSONVILLE,  TEXAS  7S766 

mi  mt  i  couicT  ran  ornds  cdilt 


$5  TALKING  DISK 

OVER  100  WORDS  in  vocabularies  that  you  can  put  into 
your  own  programs!  No  extra  hardvi/are  required.  Sam- 
ple programs  include; 

•  Talking  four-function  calculator  —  choose  English, 
Spanish,  or  German. 

•  Talking   keyboard   —   letters  and   punctuation   in 
English. 

•  Demonstration  of  voice  editing. 

The  $5  Talking  Disk  is  available  for  Commodore  64, 1 28, 
Atari  800, 800XL,  130XE,  and  Apple  11+  (64K),  lie,  and  He. 

If  you  want  to  make  your  own  vocabularies,  in  any  lan- 
guage or  accent,  then  you  must  have  a  VOICE  MASTER 
for  processing  speech  inpuL  VOICE  MASTER  lets  you 
do  much  more;  YOU  CAN  RECOGNIZE  SPOKEN 
COMMANDS  and  WRITE  MUSIC  AS  YOU  HUM!  And 
affordable  too  —  under  $90  including  the  headset  and 
microphone. 

Send  $5  for  the  talking  disk.  Prepaid  orders  only. 
Includes  postage.  ($7  outside  USA,  Canada,  and  Mex- 
ico.) Information  on  VOICE  MASTER  will  accompany 
your  disk.  Or  you  can  call  or  write  for  VOICE  MASTER 
information  separately.  Please  specify  computer  make 
and  model  with  your  order. 

®COVOX  INC 
675  Conger  St..  Dept.  C! 
Eugene,  OR  97402 
Telephone  (503)  342-1271 
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PROFESSIONAL 
HANDICAPPING  SYSTEMS 

PROFESSIONAL  SERIES'"  (ThO/Greynroll 
The  all  nev  Protessional  Series'"  represents    ^^^^^J^^ 
the  most  advanced  tiandicapping  software  ^CH^^^V 
available.  ^/^^^^^ 

Anslyais  Module" 

Complete   twi   analysis    highlights    this    tiasic    Prolessional 
Series'"  modLjIe   Pull  50  tracks/kennels/etc.  £249.95 

Factor  Value/Multiple  Regression  Module*" 

Factor  Value  Weighting  highlights  Ihis  atldition  module'" 

S149.95 

Oatfl  Base  Manager  Module'" 

Automatic  storage  ol  last  ii  races  highlights  this  modyle.  ($99.95 
with  Parlor  Value  Modulel  $14995 

GOLD  EDITION'"  (Tho/GreyATrol) 
3^^^  The  dassrc  Gold  Edition'"  from  Prof.  Jones 
offers  ftexibilily,  results,  and  ease  of  use. 

Gold  Edilion'- $159.95 

Enhanced  Gold  Edillon'" $199.95 

Limited  (Sold  Eilltion'"   $299,95 

Ultra  Edition'"  $39935 


Profenor  Picks  l=ootl>all'" 

$99.95;    with   win/loss    power   ratings   $f4995;    Pri>fessional 

Series'"  S199S5 

Expanded  l-ottery/t-otto  Analysis 

Lottery:  W  digits  $79.95;  Lotto:  max.  of  99  digits  $99S5;  Enhanc- 
ed Lottery/  Lotto  $12935 

P(^3  Portable  Computer  |4k) 

Choice  of  Thoroughbred/Greyfiound/Trotter  Gold  Edition'"  soft- 
ware. $249,96 

Model  100  Portable  Computer  (3?k) 

Choice  of  Thorcughbred/Greyhound/Trotter  Gold  EdWon""  soft- 
ware wilh  Master  Bettor'"  $649.95 

Handicapper's  Bulletin  Board  now  available 
VHS  IVainIng  Tapes  now  availaiile 

Terms;  Free  shipping  all  soHware.  Add  $6.00  COD  I  $&00  UPS 
Blue  /  $9,00  Oul-of-counlrv  /  ID  reside,nts  add  5%  /  3  weeks  per- 
sonal checks  /  cash  price  only  arJd  2%  'i/isa.  MC,  AMEX.  Prices 
suhjecf  to  change. 


CAPUTE! 


Atari  Sound 
Development  System 

If  you've  tried  to  use  the  Sound 
Editor  (Program  1,  p.  71)  from  this 
article  in  the  July  issue,  you've  no 
doubt  discovered  that  something  is 
missing.  The  last  53  lines  of  the 
program  were  accidentally  omitted. 
To  complete  the  listing,  add  the 
following  lines: 

BC  2840  ?  I?  !?  :POKE  752,0 
C6  2B50  ?  "Enter  name  for  LO 

AD  file." 
FH  2860  ?  "  or  X  to  exit." 
P6  2B70  ?  "t3  SPACES}  {QJ  £22  R} 

tEJ" 
OH  2B80  ?  "<3  SPftCESMDn:f  11 

ename.    Extender!" 
flF 2890  ?  "{3  SPACES} I automa 

tl cal 1 y  attached  t " 
PH2900  ?  "<3  SPACES}  tZ>  <:22  R} 

<C}" 
HO  2910  GOSUB  2630:  IF  FL«="X 

"  THEK  RETURN 
112920  IF  PEEK  t  193)  O170  TH 

EN  2940 
M 2930  ?  :?  FL»;"  does  not 

seem  to  exist. .,":?□ 

KE  752, 1:PDSITIDN  0, 

20!?  "{B  SPACES}PREB 

S    ANY  KEY": GET  «l,Ki 

GOTO  2830 
ID2940  ?  "Okay,  loading  ";F 

L*(  ".  ■■ 
10  2930  CLOSE  #2!0PEN  #2,4,0 

,FL»:SET  #2, BYTE 
M 2960  FOR  X=0  TD  3:FQR  Y-0 
TO  1 : GET  #2, Zi SD (X, 

Y)-2:NEXT  ViNEXT  X 
l)t2970  FDR  X  =  0  TO  3:  FOR  Y=l 
TO  35!6ET  »2,Z:StX, 

Y)-Z:NEXT  Y:NEXT  X 
BD  2900  BYT-BYTE 
DC  2990  FOR  X-7  TO  0  STEP  -1 

1  Y-INT(2''X  +  0.5)  5  IF  B 

YT>-=V  THEN  BYT  =  BYT-Y 

iBIT(X)=I 
FE  3000  NEXT  X 
KE3010  RETURN 
1(13020  REM  INITIALIZATION 
III3030  GRAPHICS  0:POKE  82,0 

jPOKE  710,0!PQKE  732 

, 1:DIM  FLL« (20) , FL» ( 

20) , BIT<7) , VD (3) , ST A 

T(3):P0KE  339,0 
CO  3040  FOR  J  =  0  TO  7:B1T<J)  = 

0INEXT  J 
BN  3050  FOR  J  =  0  TO  3:V0(J>=8 

:STAT(J>»l:NEXT  J 
H 3060  OPEN  ttl,4,0,"K:" 
JI3070  SOUND  0, 50, 10, 10: FOR 
D"l  TO  5:NEXT  D: SOU 

ND  0,0,0,0 
DP  3080  DIM  SD  <3,  2)  ,  S  (3,  33)  , 

B(15, 4) 
OJ  3090  RESTORE  3100!FOR  X-0 
TO  3!F0R  Y-0  TO  2:R 

EAD  D: SD <X, Y)=D: NEXT 
YrNEXT  X 
i:B3100  data  243,160,33760,1 


93,  160,53762,  144,  160 

,33764, 12  1, 160,53766 

«f3110     FDR     X-0     TO    3:F0R     Y-1 

TO     35!S(X,  Y)«=0:NEXT 

YiNEXT     X 

HF3120    SOUND    0  ,  1  00,  1  0,  1  0  :  FO 

R    D-1     TO    3:NEXT    D:SO 

UND    0,0,0,0 

M3I30  RESTORE  3150:FOR  X-1 

TO  ISiFOR  Y="l  TO  4: 

READ  DiB(X, Y)-D:NEXT 

Y:NEXT  X 

lt«3140  SOUND  0,  150,  10,  IBsFD 

R  D-1  TD  SiNEXT  D:SO 

UND  0,0,0,0 

IF3130  DATA  1,1,1.1,1,1,1,0 

,1,1,0,1,1,1,0,0,1,0 

, 1, 1, 1,0, 1,0, 1,0,0, 1 

,0,1,1,1,0,1,1,0,0,1 

,0, 1,0,0, 1,1,1,0,0,0 

JK3160  DATA  0,0,1,0,0,0,0.1 
AL3170  GRAPHICS  0:PaKE  710, 

0!POKE  709, 10SPOKE  7 

32, IsPDKE  359,0 
10  3180  DL-PEEK(560) +236»PEE 

K (561 ) 
OP3190  MEMTOP-PEEK  (742) 
Hfl  3200  SCREENl-PEEK (89)  : SCR 

EEN2-MEMT0P-5 
HL3210  POKE  89,3CREEN2lP0KE 
106, SCREEN2+4:PDKE 

DL+S,3CREEN2i?  CHR* ( 

125) 
CJ  3220  FOR  D-5  TD  20: 

ON  3  ,  D  :  7  "HI 

I  I  M  I  I  I  I  I  I  1  I  I 

I  I  M  I  " I  NEXT  D 
ftl  3230  SOUND  0,  200,  10,  10lFa 

R  D-1  TO  5:NEXT  DiSO 

UND  0,0,0,0 
tl  3240  POSITION  1,0:7 

LOPE  EDITOR" 
DL  3250  POSITION  2,1:? 

Voice  «" 
IIH  3260  POSITION  2,2i? 

h    value:   " 
«l  3270  FOR  N=15  TD  10  STEP 

-liY-20-N:Xs=0:POSITI 

ON  X,Y!?  N:NEXT  N 
tL  32B0  FOR  N  =  9  TO  0  STEP  -1 

I Y-20-N! X-0: POSITION 
X, Y: ?  N!NEXT  N 
QJ  3290  POSITION  3,22:?  "123 

43678901234567890123 

4367S90 12345" 
eO3300  POSITION  20,0:7  "a  - 

Ll»ten" 
EH3310  POSITION  20,1:7  "C  - 

Menu  " 
M 3320  POSITION  20,2:7  "3  - 

Change  Sound" 
BL3330  POSITION  20,3:7  "E  - 

Clear  Bare" 
NE  3340  SOUND  0  ,  253  ,  1  0  ,  1  0  :  FO 

R  D-1  TO  5:NEXT  DiBO 

UND    0,0,0,0 
HH 33S0    POKE    B9,SCREEN1:P0KE 
106,3CREENH-4:POKE 

DL+5, SCREENl : 7  CHR» ( 

125) : POKE  539, 34 
BI3360  QOTO  40 


[POSITI 

I  r  I  M  I 

I  M  I  1  I 


'ENVE 


'  i  or 


•Pitc 


Minding  IBM  Memory 

The  correction  in  last  month's  CA- 
PUTE! column  is  not  sufficient  to 
correct  all  the  bugs  in  the  dealloca- 
tion routine  for  this  article  from  the 
June  issue  (p.  85).  The  mov  bx, 
[bp  +  6]  instructions  in  Program  2 
should  instead  be  mov  bx,[bp+8]. 
To  make  this  correction  in  Program 
3,  replace  lines  100-110  with  the 
following: 

AM   100    DATA    (<h55,iih06,&ti8b,t<hec, 

fchSb ,  fchSe,  Schea,  ihSo,  Sih07, 

Sthb4,J<h49,Schcd 
KF    110   DATA   fch21,8<hBb,&h5e,!cha8, 

&hB9,  l(h«>7,  S<h07,  SihSd ,  Ithcji, 

tih02,S(h00 

The  version  of  the  program  which 
appears  on  the  COMPUTE!  Disk  for 
April-June  includes  all  corrections. 

Hex  War  For  Amiga 

The  Amiga  version  (Program  7,  p. 
55)  of  this  game  in  the  July  issue 
uses  the  lowercase  letter  1  as  a  vari- 
able name  in  several  places.  Unfor- 
tunately, on  the  printer  used  to 
make  the  listing  there  is  no  distinc- 
tion between  1  and  the  numeral  1, 
so  it's  difficult  to  tell  when  to  use 
the  letter  and  when  to  use  the  num- 
ber. Here  are  the  places  where  the 
character  should  be  an  1  (for  clarity, 
change  these  to  uppercase  L):  In  the 
lines  following  the  ones  with  labels 
710,  715,  and  718,  the  expressions 
should  be  L  =  cit(j,l),  x  =  (k— L) 
*2-H19,  and  y  =  (12-(k  +  L))*2+3. 
Following  the  DATA  statements  in 
the  Strengths  routine,  there  is  a 
loop  that  should  use  FOR  L=l  TO 
5  and  NEXT  L.  In  the  Reveille  rou- 
tine, there  is  a  loop  that  should  use 
FOR  L=0  to  6,  army(k,L,pn)  = 
army(k+l,L,pn),  army(k  +  l,L,pn) 
=  0,  and  NEXT  L.  In  the  Prisoners 
subroutine  there  is  a  loop  that 
should  use  FOR  L=0  TO  6  and 
army(k,L,j)  =  0.  The  lines  labeled 
3480  and  3490  should  both  start 
with  L=,  and  just  below  those  are 
two  other  statements  that  should 
read  IF  c(l)  =>  L  THEN  and  IF  c(2) 
=>  L  THEN.  © 
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Pigskin 

Predictions! 

Pro  Handicapper 

Tired  of  wrestling  with  Sunday 
point  spreads?  Let  your  tBM  PC 
or  Commodore  64/128  do  it  for 
you!  Pigskin  Predictions,  the 
Ijest-selling  NFL  handicapper, 
lakes  the  hassle  out  of  rating 
National  Football  League 
games.  Forget  about  obscure, 
meaningless  statistics.  Just 
spend  a  few  minutes  typing  in 
each  week's  scores  and  let  our 
point  spread  software  go  to 
work.  Here's  what  Pigskin  Predictions  has  to  offer: 

■  Predicts  point  spreads  for  all  games-for  the  current 
week  and  the  remainder  of  the  season. 

■  Calculates  projected  won-lost  records  for  ail  weeks. 

■  f^enu-driven  selection  of  schedules,  ratings,  division 
races,  predictions  or  results  by  team  or  week.  Seven  differ- 
ent reports  to  screen  or  printerl 

■  Maintains  home  field  advantage  and  power  ratings  for 
all  NFL  teams. 

■  1986  Schedule  data  file  included  free.  Yearly  updates 
available. 

Pigskin  Predictions  is  only  $39.95  on  disk.  Versions 
available  for  all  Commodore  64/128  and  IBM/Compatible 
computers.  Get  your  copy  now  and  be  ready  for  the  season! 


The  Handicapper 


Use  your  computer  to  improve  your  performance  at  the 
track!  Separate  programs  for  Thoroughbreds,  harness  hors- 
es and  greyhounds  rank  the  horses  or  dogs  in  each  race 
quickly  and  easily,  even  if  you've  never  handicapped  before! 

All  the  information  you  need  is  readily  available  in  the 
thoroughbred  Racing  Form,  harness  or  dog  track  program. 
We  even  provide  a  chart  showing  you  exactly  where  to  get 
the  information  you  need!  Our  software  puts  the  savvy  of  a 
veteran  handicapper  at  your  fingertips.  Our  complete  in- 
structions and  wagering  guide  tetl  you  how  to  bet,  which 
races  to  bet  and  which  ones  to  avoid — one  of  the  real  se- 
crets of  winning  at  the  track! 

Thoroughbred  factors  include  speed,  distance,  past  per- 
formance, weight,  class,  jockey's  record,  beaten  favorite  and 
post  position.  Harness  factors  include  speed,  post  position, 
driver's  record,  breaking  tendencies,  class,  parked-out  signs 
and  beaten  favorite.  Greyhound  factors  include  speed,  past 
performance,  maneuvering  ability,  favorite  box,  class,  kennel 
record,  beaten  favorite  and  breaking  ability. 

Thoroughbred,  harness  and  greyhound  programs  are 
sold  separately.  IBM/Compatible  and  Apple  II  versions  are 
$49.95  each,  any  two  for  $74.95,  all  three  $99.95.  Commo- 
dore 64/128  and  Tandy  Color  Computer  versions  are  $39.95 
each  on  tape  or  disk.  Any  two  for  $59.95,  all  three  $79.95. 

Federal  Hill  Software   r^^i 
8134  Scotts  Level  Rd.  \wm\ 
Baltimore,   MD  21208 
Orders    800-628-2828    Ext.    850 


Information     301-521-4886 


BELOW  DEALER  COST 


IVIONITORS 


PRINTERS 


EPSON 


^8 


NEAR 
LETTER  QUALITY 


DISK  DRIVE 


1541 
COMMODORE 


«149 


QUICK  DELIVERY 

1-800-345-5080 


PRO-TECH-TBONICS 
6870  Shingle  Crk.  Pkwiy 

S103 
Minneapolis.  MN  55430 


From  the  publishers  of  COMPUTE! 


August  1986 
COMPUTE!  Disk 


All  the  exciting  programs  from  the  past  three  issues  of  COMPUTE!  are  on 
one  timesaving,  error-free,  floppy  disk  that  is  ready  to  load  on  your  Apple 
II,  11  + ,  lie,  and  lie  computers.  The  August  1986  COMPUTE!  Disk  contains 
the  entertaining  and  useful  Apple  programs  from  the  June,  July,  and 
August  1986  issues  of  COMPUTE!. 

The  August  1986  COMPUTE!  Disk  costs  $12.95  plus  $2.00  shipping  and  han- 
dling and  is  available  only  from  COMPUTE!  Publications. 

For  added  savings  and  convenience,  you  may  also  subscribe  to  the  COM- 
PUTE! Disk.  At  a  cost  of  only  $39.95  a  year  (a  $12.00  savings),  you'll  receive 
four  disks,  one  every  three  months.  Each  disk  will  contain  all  the  programs 
for  your  machine  from  the  previous  three  issues  of  COMPUTE!. 

This  is  an  excellent  way  to  build  your  software  library  while  you  enjoy  the 
quality  programs  from  COMPUTE!. 

Disks  and  subscriptions  are  available  for  Apple,  Atari,  Commodore  64  and 
128,  and  IBM  personal  computers.  Call  for  details. 

For  more  information  or  to  order  the  August  1986  COMPUTE!  Disk,  call  toll 
free  1-800-346-6767  (in  NY  212-265-8360)  or  write  COMPUTE!  Disk,  P.O. 
Box  5038,  F.D.R.  Station,  New  York,  NY  10150. 


COMPUTE!  Publicationsjnc.^ 


Part  ol  ABC  Cortsumer  Magazines.  Inc. 

One  ol  the  ABC  PubiisHing  Comoonies 

625  7lh  Avenye.  6m  Floor,  New  Yorti.  NV  100^9 

PLOfcshen  of  COrjPOW.  COJPiiJ^r,  Gojefte  COMPuff ii  Gciette  Dnfc,  CC**uTE"  Books,  and  COWPUrt"'j  Apple  Aocfcntiorw 


COMPUTEi's  Guide 
To  Typing  in  Programs 


Computers  are  precise — type  the  pro- 
gram exactly  as  listed,  including  neces- 
sary punctuation  and  symbols,  except 
for  special  characters  noted  below.  We 
have  provided  a  special  listing  conven- 
tion as  well  as  a  program  to  check  your 
typing — "The  Automatic  Proofreader." 

Programs  for  the  IBM,  T1-99/4A, 
and  Atari  ST  models  should  be  typed 
exactly  as  listed;  no  special  characters 
are  used.  Programs  for  Commodore, 
Apple,  and  Atari  400/800/XL/XE 
computers  may  contain  some  hard-to- 
read  special  characters,  so  we  have  a 
listing  system  that  indicates  these  con- 
trol characters.  You  will  find  these 
Commodore  and  Atari  characters  in 
curly  braces;  do  not  type  the  braces.  For 
example,  {CLEAR}  or  {CLR}  instructs 
you  to  insert  the  symbol  which  clears 
the  screen  on  the  Atari  or  Commodore 
machines.  A  complete  list  of  these  sym- 
bols is  shown  in  the  tables  below.  For 
Commodore,  Apple,  and  Atari,  a  single 
symbol  by  itself  within  curly  braces  is 
usually  a  control  key  or  graphics  key.  U 
you  see  {A},  hold  down  the  CONTROL 
key  and  press  A.  This  will  produce  a 
reverse  video  character  on  the  Commo- 
dore (in  quote  mode),  a  graphics  char- 
acter on  the  Atari,  and  an  invisible 
control  character  on  the  Apple. 

Graphics  characters  entered  with 
the  Commodore  logo  key  are  enclosed 
in  a  special  bracket:  f<Ai^.  In  this  case, 
you  would  hold  down  the  Commodore 
logo  key  as  you  type  A.  Our  Commo- 
dore listings  are  in  uppercase,  so  shifted 
symbols  are  underlined.  A  graphics 
heart  symbol  (SHIFT-S)  would  be  listed 
as  S.  One  exception  is  {SHIFT- 
SPACE}.  When  you  see  this,  hold  down 
SHIFT  and  press  the  space  bar.  If  a 
number  precedes  a  symbol,  such  as  {5 
RIGHT},  {6  S},  or  E<8  Q:^,  you  would 
enter  five  cursor  rights,  six  shifted  S's, 
or  eight  Commodore-Q's.  On  the  Atari, 
inverse  characters  (white  on  black) 
should  be  entered  with  the  inverse  video 


Atari  400/800/XL/XE 


When  you  see      Typt 

{ CLEAR >  ESC 

iUPy  ESC 

{DOWN}  ESC 

{LEFT>  ESC 

{RI8HTJ  ESC 

{BACK  S>  ESC 

{DELETE!  ESC 

{1NSERT>  ESC 

iOEL   LINEJ  ESC 

{INS  LINEJ  ESC 

{TAB J  ESC 

{CLR  TflB>  ESC 

{SET  TAB>  ESC 

{BELLJ  ESC 

{ESCJ  ESC 


See 


SHIFT  < 
CTRL  - 
CTRL  = 
CTRL  + 
CTRL  « 
DELETE 
CTRL  DELETE 
CTRL  INSERT 
SHIFT  DELETE 
SHIFT  INSERT 
TAB 

CTRL  TAB 
SHIFT  TAB 
CTRL  2 
ESC 


■♦ 
4 

a 
u 
a 
a 

> 

a 


Clear  Screen 
Cursor  Up 
Cursor  Down 
Cursor  Left 
Cursor  Right 
Backspace 
Delete  character 
Insert  character 
Delete  line 
Insert  line 
TAB  key 
Clear  tab 
Set  tab  stop 
Ring  buzzer 
ESCape  key 


Commodore  PET/CBM/ViC/64/1 28/1 6/+4 


WhenVbu 
Read: 

(CLR) 

J  HOME! 

(UP! 

(DOWN) 

(LEFT) 

(RIGHT) 

(RVS) 

(OFF) 

(BLK) 

(WHT) 

(RED! 

(CYN) 

(FUR) 

(CRN) 

(BLU) 

(YEL) 


Press: 


See: 


iFl 


Smpr  I  !  CLRJHOME 


[CLR/HOMEJ 


PsHIFt]  pt~c"RSR  i"}  PI 

[l5?!LLl  03 

i  shift]  [♦-crsr-*]  Q 

E^£]  Q 

[ctrl]  [^1~\ 


m 


[CTRL^  I      V    1 


m 


D 
B 

Si 


When  Vbu 
Read: 

§i§ 

isi 

{  Fl  ! 

{  F2  ! 

)  F3  1 

{  H   } 

i  F5} 

(  F6  ) 

(  F7  ( 

(  F8  ) 
4 


Press: 

[commodore] 


COMMODORE 


See: 

Q 


[COMMODORE 

I  SHIFT  I  I     fl 
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key  (Atari  logo  key  on  400/800  models). 

Whenever  more  than  two  spaces 
appear  in  a  row,  they  are  listed  in  a 
special  format.  For  example,  (6 
SPACES}  means  press  the  space  bar  six 
times.  Our  Commodore  listings  never 
leave  a  single  space  at  the  end  of  a  line, 
instead  moving  it  to  the  next  printed 
line  as  {SPACE}. 

Amiga  program  listings  contain 
only  one  special  character,  the  left  ar- 
row (-)  symbol.  This  character  marks 
the  end  of  each  program  line.  Wherever 
you  see  a  left  arrow,  press  RETURN  or 
move  the  cursor  off  the  line  to  enter 
that  line  into  memory.  Don't  try  to  type 
in  the  left  arrow  symbol;  it's  there  only 
as  a  marker  to  indicate  where  each  pro- 
gram line  ends. 

The  Automatic  Proofreader 

Type  in  the  appropriate  program  listed 
below,  then  save  it  for  future  use.  The 
Commodore  Proofreader  works  on  the 
Commodore  128,  64,  Plus/4,  16,  and 
VlC-20.  Don't  omit  any  lines,  even  if 
they  contain  unfamiliar  commands  or 
you  think  they  don't  apply  to  your  com- 
puter. When  you  run  the  program,  it 
installs  a  machine  language  program  in 
memory  and  erases  its  BASIC  portion 
automatically  (so  be  sure  to  save  sever- 
al copies  before  running  the  program 
for  the  first  time).  If  you're  using  a 
Commodore  128,  Plus/4  or  16,  do  not 
use  any  GRAPHIC  commands  while 
the  Proofreader  is  active.  You  should 
disable  the  Commodore  Proofreader 
before  running  any  other  program.  To 
do  this,  either  turn  the  computer  off  and 
on  or  enter  SYS  64738  (for  the  64),  SYS 
65341  (128),  SYS  64802  (VIC-20),  or 
SYS  65526  (Plus/4  or  16).  To  reenable 
the  Proofreader,  reload  the  program 
and  run  it  as  usual.  Unlike  the  original 
VlC/64  Proofreader,  this  version  works 
the  same  with  disk  or  tape. 

On  the  Atari,  run  the  Proofreader 
to  activate  it  (the  Proofreader  remains 
active  in  memory  as  a  machine  lan- 
guage program);  you  must  then  enter 
NEW  to  erase  the  BASIC  loader.  Press- 
ing SYSTEM  RESET  deacHvates  the 
Atari  Proofreader;  enter  PRINT 
USR(1536)  to  reenable  it. 

The  Apple  Proofreader  erases  the 
BASIC  portion  of  itself  after  you  run  it, 
leaving  only  the  machine  language  por- 
tion in  memory.  It  works  with  either 
DOS  3.3  or  ProDOS.  Disable  the  Apple 
Proofreader  by  pressing  CTRL-RESET 
before  running  another  BASIC  program. 

The  IBM  Proofreader  is  a  BASIC 
program  that  simulates  the  IBM  BASIC 
line  editor,  letting  you  enter,  edit,  list, 
save,  and  load  programs  that  you  type. 
Type  RUN  to  activate.  Be  sure  to  leave 
Caps  Lock  on,  except  when  typing  low- 
ercase characters. 


Once  the  Proofreader  is  active,  try 
typing  in  a  line.  As  soon  as  you  press 
RETURN,  either  a  hexadecimal  number 
{on  the  Apple)  or  a  pair  of  letters  (on  the 
Commodore,  Atari,  or  IBM)  appears. 
The  number  or  pair  of  letters  is  called  a 
checksum. 

Compare  the  value  displayed  on 
the  screen  by  the  Proofreader  with  the 
checksum  printed  in  the  program  list- 
ing in  the  magazine.  The  checksum  is 
given  to  the  left  of  each  line  number. 
Just  type  in  the  program  a  line  at  a  time 
(without  the  printed  checksum),  press 
RETURN  or  Enter,  and  compare  the 
checksums.  If  they  match,  go  on  to  the 
next  line.  If  not,  check  your  typing; 
you've  made  a  mistake.  Because  of  the 
checksum  method  used,  do  not  type 
abbreviations,  such  as  ?  for  PRINT.  On 
the  Atari  and  Apple  Proofreaders, 
spaces  are  not  counted  as  part  of  the 
checksum,  so  be  sure  you  type  the  right 
number  of  spaces  between  quote 
marks.  The  Atari  Proofreader  does  not 
check  to  see  that  you've  typed  the  char- 
acters in  the  right  order,  so  if  characters 
are  transposed,  the  checksum  still 
matches  the  listing.  The  Commodore 
Proofreader  catches  transposition  er- 
rors and  ignores  spaces  unless  they're 
enclosed  in  quotation  marks.  The  IBM 
Proofreader  detects  errors  in  spacing 
and  transposition. 

IBM  Proofreoder  Commands 

Since  the  IBM  Proofreader  replaces  the 
computer's  normal  BASIC  line  editor,  it 
has  to  include  many  of  the  direct-mode 
IBM  BASIC  commands.  The  syntax  is 
identical  to  IBM  BASIC.  Commands 
simulated  are  LIST,  LLIST,  NEW, 
FILES,  SAVE,  and  LOAD.  When  listing 
your  program,  press  any  key  {except 
Ctrl-Break)  to  stop  the  listing.  If  you 
enter  NEW,  the  Proofreader  prompts 
you  to  press  Y  to  be  especially  sure  you 
mean  yes. 

Two  new  commands  are  BASIC 
and  CHECK.  BASIC  exits  the  Proof- 
reader back  to  IBM  BASIC,  leaving  the 
Proofreader  in  memory.  CHECK  works 
just  like  LIST,  but  shows  the  checksums 
along  with  the  listing.  After  you  have 
typed  in  a  program,  save  it  to  disk. 
Then  exit  the  Proofreader  with  the 
BASIC  command,  and  load  the  pro- 
gram as  usual  (this  replaces  the  Proof- 
reader in  memory).  You  can  now  run 
the  program,  but  you  may  want  to  re- 
save  it  to  disk.  This  will  shorten  it  on 
disk  and  make  it  load  faster,  but  it  can 
no  longer  be  edited  with  the  Proofread- 
er. If  you  want  to  convert  an  existing 
BASIC  program  to  Proofreader  format, 
save  it  to  disk  with  SAVE  "filename", A. 


Program  1:  Atari 
Proofreader 

By  Charles  Brannon,  Program  Editor 

100  BRAPHICS  0 

110  FOB  1=1536  TD  1700:REA 

D  A:PDKE  I  , A: CK  =  CK  +  A: N 

EXT     I 
120     IF    CKO19072    THEN    ?     "E 

rror    in    DATA    Statement 

s.        Check    Typing. " :END 

130  A=USR(1536) 

140  ?  :?  "Automatic  Proo-fr 

eader  Now  Activated." 
150  END 
160  DATA  104,160,0,185,26, 

3,201,69,240,7 
170  DATA  200, 200, 192, 34, 20 

8,243,96,200, 169,74 
180  DATA  153,26,3,200,169, 

6,  153, 26,3,  162 
190  DATA  0,189,0,228,157,7 

4,6,232,224, 16 
200  DATA  208,245,169,93,14 

1,7B,6, 169,6, 141 
210  DATA  79,6,24,173,4,228 

,  10S,  1 ,  141, 95 
220  DATA  6,173,5,228,105,0 

, 141, 96,6, 169 
230  DATA  0,133,203,96,247, 

238, 125,241,93,6 
240  DATA  244,241,115,241,1 

24, 241,76, 205,238 
250  DATA  0,0,0,0,0,32,62,2 

46, 8, 201 
260  DATA  155,240,13,201,32 

,240,7, 72,24,  101 
270  DATA  203,133,203,104,4 

0,96, 72, 152,72, 138 
280  DATA  72,160,0,169,128, 

145,88,200, 192,40 
290  DATA  208,249,165,203,7 

4,74, 74,74, 24, 105 
300  DATA  161,160,3,145,88, 

165, 203, 41 , 15,24 
310  DATA  105,161,200,145,8 

8, 169,0, 133, 203, 104 
320  DATA  170,104,168,104,4 

0,96 

Program  2:  IBM  Proofreader 

By  Charles  Brannon,  Program  Editor 

10  'Automatic  Proofreader  Vers 
ion  3.0  {Lines  205,206  adde 
d/190  deleted/470,490  chang 
ed  from  V2.0) 
100  DIM  L*  ( 500 )  ,LNLIM( 500)  : COLO 
R  0,7, 7: KEY  OFF:CLS:MAX=0s 
LNUM{0) =65536! 
110  ON  ERROR  GOTO  120:KEY  15, C 
HR*(4)+CHR«(70):DN  KEY(IS) 
GOSUB  640; KEY  (IS)  ON: GOT 
O  130 
120  RESUME  130 

130  DEF  SEB=8<H40:W=PEEK(!cH4A) 
140  ON  ERROR  BOTO  650: PRINT: PR 

INT"Proof reader  Ready." 
150  LINE  INPUT  L«:Y=CSRLIN-INT 

<LEN<L»}/W}-1:L0CATE  Y,  1 
160  DEF  SE6=0:POKE  1050,30:POK 
E  1052, 34: POKE  1054,0: POKE 
1055, 79: POKE  1056, 13: POKE 
1057, 28: LINE  INPUT  L«:DEF 
SEG: IF  L«=""  THEN  150 
170  IF  LEFT*(L4, 1)="  "  THEN  L$ 
=MID*(L»,2):B0T0  170 
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180  IF  VAL(LEFT*(L«,2>)=0  AND 
MID*{L«,3, 1)="  "  THEN  L»=M 
ID*(L»,4) 

200  IF  ASC(L«)>57  THEN  260  'no 
line  DLiRiber,  there-fore  cq 
mmand 

205  BL=INSTR(L*,"  "):IF  BL=0  T 
HEN  BL$=L»:GOTG  206  ELSE  B 
L»=LEFT»tL*,BL-l) 

206  LNUM=VftL (BL*) : TEXT*=MIDS (L 
*, LEN (STR* {LNUM) ) +1 ) 

210  IF  TEXT«=""  THEN  GOSUB  540 
slF  LNUM=LNUM(P)  THEN  GDSU 
B  5605  SOTO  150  ELSE  150 
220  CK3UM=0:FOR  1=1  TO  LEN(L4) 
: CKSUM= ( CKSUM+ ASC ( M I D* { L* , 
1))«I)  AND  255: NEXT: LOCATE 
Y,lr PRINT  CHR4(65+CKSUM/1 
6)+CHRt(65+(CKSUM  AND  15) > 
+  "  "-l-L* 
230  GQSUB  540: IF  LNUM (P) =LNUM 
THEN  L»<P)=TEXT*:QDTQ  150 
'replace  line 
240  GOSUB  5B0:GaTD  150  'insert 

the  line 
260  TEXTS="":FDR  1=1  TO  LEN(L» 
)iA=ASC(HID*(L*,I) ) :TEXT*= 
TEXT*+CHR*tA+32*Cfl>96  AND 
A< 123)): NEXT 
270  DELI«ITER=1NSTR(TEXT«,"  ") 
» COMMAND«=TEXT«: ARG»=" " :  IF 
DELIMITER  THEN  COMMAND*=L 
EFT«  CTEXT*,  DEHMITER-l )  :  AR 
B»=M1D« (TEXT*, DELIMITER+l ) 
ELSE  DELIMITER=INSTR(TEXT 
«,CHR*(34;):IF  DETLIfllTER  T 
HEN  COMMAND*=LEFT*(TEXT»,D 
ELIHITER-l)  :ARS»==MID*(TEXT 
*, DELIMITER) 

280  IF  CQMMAND*<>"LIST"  THEN  4 

10 
290  OPEN  "scrn: "  FDR  OUTPUT  AS 

300  IF  ARB*=""  THEN  FIRST=0:P= 

MAX-1:G0T0  340 
310  DEL1MITER=INSTR(ARG*,  ■■-"): 

IF  DELIMITeR=0  THEN  LNUM=y 

ALtARB*): GQSUB  540:FIRST=P 

:BDTO  340 
320  FIRST=VALCLEFT*(flRG»,DELIM 

I TER ) ) ; L AST= V AL ( M I D» ( ARG* , 

DELIMITER+l) ) 
330  LNUM=FIRST:BOSUB  540: FIRST 

=P:LNUM=LAST: GOSUB  540; IF 

P=0  THEN  P=MAX-1 
340  FOR  X=FIRST  TO  P:NS=MID»<S 

TR*(LNUM(X) ) ,2)+"  " 
350  IF  CKFLAG=0  THEN  ft*=""!GaT 

0  370 

360  CKSUM=0:AS=N«+L«(X) :FDR  1= 

1  TO  LEN(A*) :CKSUM=(CKSUM+ 
flSC(MlD*(A*,  I))*I)  AND  255 
:  NEXT : A*=CHR* ( 65+CKSUM/ 1 6 ) 
+CHR«<65+(CKSUM  AND  15))+" 

370  PRINT  #1,A*+N»+L«(X) 

380  IF  INKEY«<>""  THEN  X=P 

390  NEXT  :  CLOSE  #l:Ct<FLA6=0 

400  GOTO  130 

410  IF  CaMMAND*="LLIST"  THEN  0 

PEN  "Iptl:"  FOR  OUTPUT  AS 

#1:G0T0  300 
420  IF  CO«MAND*=" CHECK"  THEN  C 

KFLAG=1:6DT0  290 
430  IF  COMMAND*<>"SAVE"  THEN  4 

50 

440  GOSUB  600: OPEN  ARB*  FOR  OU 
TPUT  AS  •1:ARB*="":G0T0  30 
0 

450  IF  COMMAND*<>"LOAD"  THEN  4 
90 


460  60BUB  600: OPEN  ARS*  FOR  IN 

PUT  AS  #l:MAX=a:P=0 
470  WHILE  NOT  EaF(l):LINE  INPU 

T  #1,L»:BL=INSTR(L», "  "):B 

L»=LEFT» (L», BL-1 ) : LNUM (P) = 

VAL (BL*) : L*  <P) =MID» (L*, LEN 
CSTR»  (VAL  CBL»)  )  )  +1 ) :  P»=P+1 : 

WEND 
480  MAX«P:  CLOSE  ttl:eOTO  130 
490  IF  CQMMAND»="NEW"  THEN  INP 

UT  "Erase  program  -  Are  yo 

u  sure";L»:IF  LEFT«(L«,1)= 

"y"  OR  LEFT*(L»,1)="Y"  THE 

N  MAX=0: LNUM (0> =65536!:  GOT 

0  130; ELSE  130 
500  IF  COMMAND*= "BASIC"  THEN  C 

DLOR  7, 0,0: ON  ERROR  GOTO  0 

sCL&:END 
510  IF  C0MMAND4<>"FILES"  THEN 

520 
515  IF  ARBt=""  THEN  ARGS="fl! " 

ELSE  SEL=1: GOSUB  600 
517  FILES  ARB*: GOTO  130 
520  PRINT"Syntax  error"; GOTO  1 

30 
540  P=0: WHILE  LNUM>LNUM(P>  AND 

P<MAX:P=P+1: WEND ! RETURN 
560  MAX=MAX-1:FDR  X=P  TO  MAX : L 

NUM ( X ) =LNUM ( X+ 1 ) : L* ( X ) =L» ( 

X+i): NEXT: RETURN 
5B0  MAX=MAX+1:F0R  X=MAX  TO  P+1 
STEP  -1:LNUM(X)=LNUM(X-1) 

:L»(X)=L»(X-1):NEXT:L«(P)= 

TEXT*: LNUM (P ) =LNUM: RETURN 
600  IF  LEFT*(ARQ*,i)<>CHRS(34) 
THEN  520  ELSE  flRG»=MID»(A 

RB»,2) 
610  IF  RIBHT*(ARe*,l)=CHR*(54) 
THEN  ARG«=LEFTS ( ARE* , LEN ( 

ARG»)-1) 
620'  IF  SEL=0  AND  INSTRtARGS,  " . 

")=0  THEN  ARG»=ARG»+".BAS" 
630  SEL=0: RETURN 
640  CLOSE  (»l:CKFLAB=0:PRINT"St 

opped.": RETURN  150 
650  PRINT  "Error  »"; ERR: RESUME 
1S0 

Program  3:  Commodore 
Proofreader 

By  Philip  Nelson,  Assistant  Editor 

10  VEC=PEEK(772)+256*PEEK{773) 

:LO=43:HI=44 
20  PRINT  "AUTOMATIC  PROOFREADE 

R  FOR  "jilF  VEC=42364  THEN 

{SPACE  J  PRINT  "C-64" 
30  IF  VEC=50556  THEN  PRINT  "VI 

C-20" 
40  IF  VEC=»35X58  THEN  GRAPHIC  C 

LR:PRINT  "eLUS/4  &16" 
50  IF  VEC=17165  THEN  LO=45:Hl= 

46:GRAPHIC  CL,RsPRINT"128" 
60  SA=(PEEKCL0)+256*PEEK(HI) )+ 

6:ADR=SA 
70  FOR  J=0  TO  166:READ  BYT:P0K 

E  ADR,BYT:ADR=ADR+1 iCHK=CHK 

+BYT!NEXT 
80  IF  CHKO 20570  THEH  PRINT  "* 
ERROR*  CHECK  TYPING  IN  DATA 
STATEMENTS " : END 
90  FOR  J=l  TO  5:READ  RF,LF,HF: 

RS=SA+RF:HB=INT(RS/256) :LB= 

RS-(256*HB) 
100    CHK=CHK+RF+LF+HF:POKE   SA+L 

F, LB: POKE    SA+HF, HB:NEXT 
110    IF    CHKO 22054    THEN    PRINT    " 

♦ERROR*    RELOAD    PROGRAM   ASD 


{SPACE JCHECK    FINAL    LINE": EN 

D 
120    POKE    SA-t-149, PEEK (772): POKE 

SA+150,PEEK(77  3) 
130    IF   VEC=17165    THEN    POKE    SA+ 

14, 22: POKE    SA+IS, 23 :POKESA+ 

29,224 :POKESA+139, 224 
140    PRINT    CHRS(147);CHB$(17) ; " 

PROOFREADER   ACTIVE ": SYS    SA 
150    POKE    HI, PEEK ( HI )+l: POKE    (P 

EEK(LO)+256*PEEK(Hl) ) -1 ,0 :N 

EW 
160    DATA    120,169,73,141,4,3,16 

9,3,141,5,3 
170    DATA   88,96,165,20,133,167, 

165,21,133,168,169 
180    DATA    0,141,0,255,162,31,18 

1,199,157,227,3 
190    DATA   202,16,248,169,19,32, 

210,255,169,18,32 
200    DATA  210,255,160,0,132,180 

,132,176,136,230,180 
210    DATA    200,185,0,2,240,46,20 

1,34,208,8,72 
220    DATA    165,176,73,255,133,17 

6,104,72,201,32,208 
230    DATA   7,165,176,208,3,104,2 

03,226,104,166,180 
240    DATA    24,165,167,121,0,2,13 

3,167,165,168,105 
250    DATA    0,133,168,202,208,239 

,240,202,165,167,69 
260    DATA    168,72,41,15,168,185, 

211,3,32,210,255 
270    DATA    104,74,74,74,74,168,1 

85,211,3,32,210 
280    DATA    255,162,31,189,227,3, 

149,199,202,16,248 
290    DATA    169,146,32,210,255,76 

,86,137,65,66,67 
300    DATA   68,69,70,71,72,74,75, 

77,80,81,82,83,88 
310    DATA    13,2,7,167,31,32,151, 

116,117,151,128,129,167,136 

,137 

Program  4:  Apple 
Proofreader 

By  Tim  Victor,  Editorial  Programmer 

10  C  =  01  FOR  I  =  76S  TO  768  + 

68:  READ  A:C  =  C  +  A;  POKE  I 

,A:  NEXT 
20  IF  C  <  >  7258  THEN  PRINT  "ER 

ROR  IN  PROOFREADER  DATA  STAT 

EMENTS" :  END 
30  IF  PEEK  (190  *  256)  <  >  76  T 

HEN  POKE  56,0:  POKE  57,3:  CA 

LL  1002:  GOTO  50 
40  PRINT  CHRS  (4) ; " IN#A«300" 
50  POKE  34,0:  HOME  j  POKE  34,1: 
VTAB  2:  PRINT  "PROOFREADER 

INSTALLED" 
60  NEW 

100  DATA  216,32,27,253,201,141 
110  DATA  208,60,138,72,169,0 
120  DATA  72,189,255,1,201,160 
130  DATA  240,8,104,10,125,255 
140  DATA  1,105,0,72,202,208 
150  DATA  238,104,170,41,15,9 
160  DATA  48,201,58,144,2,233 
170  DATA  57,141,1,4,138,74 
1B0  DATA  74,74,74,41,15,9 
190  DATA  48,201,58,144,2,233 
200  DATA  57,141,0,4,104,170 
210  DATA  169,141,96  ® 
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COMPUTE'S 

Author  Guide 


Most  of  the  following  suggestions  serve  to  improve 
the  speed  and  accuracy  of  publication.  COMPUTEl  is 
primarily  interested  in  new  and  timely  articles  on  the 
Commodore  64/128,  Atari,  Apple,  IBM  PC/PCjr, 
Amiga,  and  Atari  ST.  We  are  much  more  concerned 
with  the  content  of  an  article  than  with  its  style,  but 
articles  should  be  clear  and  well-explained. 

The  guidelines  below  will  permit  your  good  ideas 
and  programs  to  be  more  easily  edited  and  published; 

1.  The  upper  left  corner  of  the  first  page  should 
contain  your  name,  address,  telephone  number,  and 
the  date  of  submission. 

2.  The  following  information  should  appear  in  the 
upper  right  corner  of  the  first  page.  If  your  article  is 
specifically  directed  to  one  make  of  computer,  please 
state  the  brand  name  and,  if  applicable,  the  BASIC  or 
ROM  or  DOS  version(s)  involved.  In  addition,  please 
hidkate  the  memory  requirements  of  programs. 

3.  The  underlined  title  of  the  article  should  start 
about  2/3  of  the  way  down  the  first  page. 

4.  Following  pages  should  be  typed  normally,  ex- 
cept that  in  the  upper  right  corner  there  should  be  an 
abbreviation  of  the  title,  your  last  name,  and  the  page 
number.  For  example:  Memory  Map/Smith/2. 

5.  All  lines  within  the  text  of  the  article  must  be 
double-  or  triple-spaced.  A  one-inch  margin  should  be 
left  at  the  right,  left,  top,  and  bottom  of  each  page.  No 
words  should  be  divided  at  the  ends  of  lines.  And 
please  do  not  justify.  Leave  the  lines  ragged. 

6.  Standard  typing  paper  should  be  used  (no  eras- 
able, onionskin,  or  other  thin  paper)  and  typing 
should  be  on  one  side  of  the  paper  only  {upper-  and 
lowercase). 

7.  Sheets  should  be  attached  together  with  a  pa- 
per clip.  Staples  should  not  be  used. 

8.  If  you  are  submitting  more  than  one  article, 
send  each  one  in  a  separate  mailer  with  its  own  tape 
or  disk. 

9.  Short  programs  (under  20  lines)  can  easily  be 
included  within  the  text.  Longer  programs  should  be 
separate  listings.  It  is  es5e}nial  that  we  have  a  copy  of 
the  program,  recorded  twice,  on  a  tape  or  disk.  If  your 
article  was  written  with  a  word  processor,  we  also  ap- 
preciate a  copy  of  the  text  file  on  the  tape  or  disk. 
Please  use  high-quality  10  or  30  minute  tapes  with 
the  program  recorded  on  both  sides.  The  tape  or  disk 
should  be  labeled  with  the  author's  name,  the  title  of 
the  article,  and,  if  applicable,  the  BASIC/ROM/DOS 
version(s).  Atari  tapes  should  specify  whether  they  are 
to  be  LOADed  or  ENTERed.  We  prefer  to  receive  Ap- 
ple programs  on  disk  rather  than  tape.  Tapes  are  fairly 
sturdy,  but  disks  need  to  be  enclosed  within  plastic  or 
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cardboard  mailers  (available  at  photography,  station- 
ery, or  computer  supply  stores). 

10.  A  good  general  rule  is  to  spell  out  the  num- 
bers zero  through  ten  in  your  article  and  write  higher 
numbers  as  numerals  (1024).  The  exceptions  to  this 
are:  Figure  5,  T^ble  3,  TAB(4),  etc.  Within  ordinary 
text,  however,  the  zero  through  ten  should  appear  as 
words,  not  numbers.  Also,  symbols  and  abbreviations 
should  not  be  used  within  text:  use  "and"  (not  &), 
"reference"  (not  ref.),  "through"  (not  thru). 

11.  For  greater  clarity,  use  all  capitals  when  refer- 
ring to  keys  (RETURN,  TAB,  ESC,  SHIFT),  BASIC 
words  (LIST,  RND,  GOTO),  and  three  languages 
(BASIC,  APL,  PILOT).  Headlines  and  subheads 
should,  however,  be  initial  caps  only,  and  emphasized 
words  are  not  capitalized.  If  you  wish  to  emphasize, 
underiine  the  word  and  it  will  be  italicized  during 
typesetting. 

12.  Articles  can  be  of  any  length— from  a  single- 
line  routine  to  a  multi-issue  series.  The  average  article 
is  about  four  to  eight  double-spaced,  typed  pages. 

13.  If  you  want  to  include  photographs,  they 
should  be  either  5X7  black  and  white  glossies  or 
color  slides. 

14.  We  do  not  consider  articles  which  are  submit- 
ted simultaneously  to  other  publishers.  If  you  wish  to 
send  an  article  to  another  magazine  for  consideration, 
please  do  not  submit  it  to  us. 

15.  COMPUTE!  pays  between  $70  and  $800  for 
published  articles.  In  general,  the  rate  reflects  the 
length  and  quality  of  the  article.  Payment  is  made 
upon  acceptance.  Following  submission  (Editorial  De- 
partment, COMPUTE!  Magazine,  P.O.  Box  5406, 
Greensboro,  NC  27403)  it  will  take  from  four  to  eight 
weeks  for  us  to  reply.  If  your  work  is  accepted,  you 
will  be  notified  by  a  letter  which  will  include  a  con- 
tract for  you  to  sign  and  return.  Rejected  manuscripts 
are  returned  to  authors  loho  enclose  a  self-addressed, 
stamped  envelope. 

16.  If  your  article  is  accepted  and  you  have  since 
made  improvements  to  the  program,  please  submit  an 
entirely  new  tape  or  disk  and  a  new  copy  of  the  arti- 
cle reflecting  the  update.  We  cannot  easily  make  revi- 
sions to  programs  and  articles.  It  is  necessary  that  you 
send  the  revised  version  as  if  it  were  a  new  submis- 
sion entirely,  but  be  sure  to  indicate  that  your  submis- 
sion is  a  revised  version  by  writing,  "Revision"  on  the 
envelope  and  the  article. 

17.  COMPUTE!  does  not  accept  unsolicited  product 
reviews.  If  you  are  interested  in  serving  on  our  panel 
of  reviewers,  contact  the  Review  Coordinator  for 
details. 


|U||  y  Machine  Language  Entry  Program 


For  Commodore  64 


Ottis  Cowper,  Technical  Editor  i 


"MLX"  is  a  labor-saving  utility  that  al- 
lows will  help  you  enter  machine  lan- 
guage program  listings  without  error. 
MLX  IS  required  to  enter  all  Commodore 
64  machine  language  programs  published 
in  COMPUTE!. 

Type  in  and  save  some  copies  of  MLX 
(you'll  want  to  use  it  to  enter  future  ML 
programs  from  COMPUTE!,  COMPUTE  !'s 
GAZETTE,  and  COMPUTE!  books). 
When  you're  ready  to  enter  an  ML  pro- 
gram, load  and  run  MLX.  You'll  be 
asked  for  a  starting  address  and  an 
ending  address.  These  addresses 
should  appear  in  the  article  accompa- 
nying the  MLX-format  program  listing 
you're  typing. 

If  you're  unfamiliar  with  machine 
language,  the  addresses  (and  all  other 
values  you  enter  in  MLX)  may  appear 
strange.  Instead  of  the  usual  decimal 
numbers  you're  accustomed  to,  these 
numbers  are  in  hexadecimal — a  base  16 
numbering  system  commonly  used  by 
ML  programmers.  Hexadecimal — hex 
for  short — includes  the  numerals  0-9 
and  the  letters  A-F.  But  don't  worry — 
even  if  you  know  nothing  about  ML  or 
hex,  you  should  have  no  trouble  using 
MLX. 

After  you  enter  the  starting  and 
ending  addresses,  you'll  be  offered  the 
option  of  clearing  the  workspace.  The 
data  you  enter  with  MLX  is  kept  in  a 
special  reserved  area  of  memory;  clear- 
ing this  workspace  fills  the  reserved 
area  with  zeros,  which  makes  it  easier 
to  find  where  you  left  off  typing  if  you 
enter  the  listing  in  several  sessions. 
Choose  this  option  if  you're  starting  to 
enter  a  new  listing.  If  you're  continuing 
a  listing  that's  partially  typed  from  a 
previous  session,  there's  no  point  in 
clearing  the  workspace,  since  the  data 
you  load  in  will  fill  the  area  vrith  what- 
ever values  were  in  workspace  memory 
at  the  time  of  the  last  Save. 

At  this  point,  functions  menu  will 
appear.  If  you're  just  starting  to  type  in 
a  program,  pick  the  first  option,  ENTER 
DATA,  by  pressing  the  E  key.  You'U  be 
asked  for  an  address;  type  the  four-digit 
number  at  the  start  of  the  first  line  of 
the  program  listing.  If  you've  already 
t^'ped  in  part  of  a  program,  be  sure  to 
load  the  partially  completed  program 
before  you  resume  entry,  then  choose 
the  ENTER  DATA  option  and  type  the 
line  number  where  you  left  off  typing  at 
the  end  of  the  previous  session.  In  any 


case,  make  sure  the  address  you  enter 
corresponds  to  the  address  of  a  line  in 
the  listing.  Otherwise,  you'll  be  unable 
to  enter  the  data  correctly.  If  you 
pressed  E  by  mistake,  you  can  return  to 
the  command  menu  by  pressing  RE- 
TURN alone  when  asked  for  the  ad- 
dress. (You  can  get  back  to  the  menu 
from  most  options  by  pressing  RE- 
TURN with  no  other  input,) 

Entering  A  Listing 

Once  you're  in  Enter  mode,  MLX  prints 
the  address  for  each  program  line  for 
you.  You  then  type  in  all  nine  numbers 
on  that  tine,  beginning  with  the  first 
two-digit  number  after  the  colon  (:). 
Each  line  represents  eight  data  bytes 
and  a  checksum.  Although  an  MLX- 
format  listing  appears  similar  to  the 
"hex  dump"  listings  from  a  machine 
language  monitor  program,  the  extra 
checksum  number  on  the  end  allows 
MLX  to  check  your  typing. 

When  you  enter  a  line,  MLX  recal- 
culates the  checksum  from  the  eight 
bytes -and  the  address  and  compares 
this  value  to  the  number  from  the  ninth 
column.  If  the  values  match,  you'll  hear 
a  bell  tone,  the  data  will  be  added  to  the 
workspace  area,  and  the  prompt  for  the 
next  line  of  data  will  appear.  But  if  MLX 
detects  a  typing  error,  you'll  hear  a  low 
buzz  and  see  an  error  message.  The  line 
will  then  be  redisplayed  for  editing. 

Invalid  Cliaracters  Banned 

Only  a  few  keys  are  active  while  you're 
entering  data,  so  you  may  have  to  un- 
learn some  habits.  You  do  not  type 
spaces  between  the  columns;  MLX 
automatically  inserts  these  for  you.  You 
do  not  press  RETURN  after  typing  the 
last  number  in  a  line;  MLX  automatically 
enters  and  checks  the  line  after  you 
type  the  last  digit. 

Only  the  numerals  0-9  and  the 
letters  A-F  can  be  typed  in.  If  you  press 
any  other  key  (with  some  exceptions 
noted  below),  you'll  hear  a  warning 
buzz.  MLX  checks  for  transposed  char- 
acters. If  you're  supposed  to  type  in  AO 
and  instead  enter  OA,  MLX  will  catch 
your  mistake.  There  is  one  error  that 
can  slip  past  MLX:  Because  of  the 
checksum  formula  used,  MLX  won't 
notice  if  you  accidentally  type  FF  in 
place  of  00,  and  vice  versa.  And  there's 
a  very  slim  chance  that  you  could  gar- 
ble a  line  and  still  end  up  with  a  combi- 
nation of  characters  that  adds  up  to  the 


proper  checksum.  However,  these  mis- 
takes should  not  occur  if  you  take  rea- 
sonable care  while  entering  data. 

Editing  Features 

To  correct  typing  mistakes  before  fin- 
ishing a  line,  use  the  INST/DEL  key  to 
delete  the  character  to  the  left  of  the 
cursor.  (The  cursor-left  key  also  de- 
letes.) If  you  mess  up  a  line  really  badly, 
press  CLR/HOME  to  start  the  line  over. 
The  RETURN  key  is  also  active,  but 
orUy  before  any  data  is  typed  on  a  line. 
Pressing  RETURN  at  this  point  rehirns 
you  to  the  command  menu.  After  you 
type  a  character  of  data,  MLX  disables 
RETURN  until  the  cursor  returns  to  the 
start  of  a  line.  Remember,  you  can  press 
CLR/HOME  to  quickly  get  to  a  line 
number  prompt. 

More  editing  features  are  available 
when  correcting  lines  in  which  MLX 
has  detected  an  error.  To  make  correc- 
tions in  a  line  that  MLX  has  redisplayed 
for  editing,  compare  the  line  on  the 
screen  with  the  one  printed  in  the  list- 
ing, then  move  the  cursor  to  the  mis- 
take and  type  the  correct  key.  The 
cursor  left  and  right  keys  provide  the 
normal  cursor  controls.  (The  INST/ 
DEL  key  now  works  as  an  alternative 
cursor-left  key.)  You  cannot  move  left 
beyond  the  first  character  in  the  line.  If 
you  try  to  move  beyond  the  rightmost 
character,  you'll  reenter  the  line.  Dur- 
ing editing,  RETURN  is  active;  pressing 
it  tells  MLX  to  recheck  the  line.  You  can 
press  the  CLR/HOME  key  to  clear  the 
entire  line  if  you  want  to  start  from 
scratch,  or  if  you  want  to  get  to  a  line 
number  prompt  to  use  RETURN  to  get 
back  to  the  menu. 

Display  Data 

The  second  menu  choice,  DISPLAY 
DATA,  examines  memory  and  shows 
the  contents  in  the  same  format  as  the 
program  listing  (including  the  check- 
sum). When  you  press  D,  MLX  asks  you 
for  a  starting  address.  Be  sure  that  the 
starring  address  you  give  corresponds 
to  a  line  number  in  the  listing.  Other- 
wise, the  checksum  display  will  be 
meaningless,  MLX  displays  program 
lines  until  it  reaches  the  end  of  the 
program,  at  which  point  the  menu  is 
redisplayed.  You  can  pause  the  display 
by  pressing  the  space  bar.  (MLX  finish- 
es printing  the  current  line  before  halt- 
ing.) Press  space  again  to  restart  the 
display.  To  break  out  of  the  display  and 
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get  back  to  the  menu  before  the  ending 
address  is  reached,  press  RETURN. 

Other  Menu  Options 

Two  more  menu  selections  tet  you  save 
programs  and  load  them  back  into  the 
computer.  These  are  SAVE  FILE  and 
LOAD  FILE;  their  operation  is  quite 
straightforward.  When  you  press  S  or  L, 
MLX  asks  you  for  the  filename.  You'll 
then  be  asked  to  press  either  D  or  T  to 
select  disk  or  tape. 

You'll  notice  the  disk  drive  starting 
and  stopping  several  times  during  a 
load  or  save.  Don't  panic;  this  is  normal 
behavior.  MLX  opens  and  reads  from  or 
writes  to  the  file  instead  of  using  the 
usual  LOAD  and  SAVE  commands. 
Disk  users  should  also  note  that  the 
drive  prefix  0:  is  automatically  added  to 
the  filename  (line  750),  so  this  should 
not  be  included  when  entering  the 
name.  This  also  precludes  the  use  of  @ 
for  Save-with-Replace,  so  remember  to 
give  each  version  you  save  a  different 
name. 

Remember  that  MLX  saves  the  en- 
tire workspace  area  from  the  starting 
address  to  the  ending  address,  so  the 
save  or  load  may  take  longer  than  you 
might  expect  if  you've  entered  only  a 
small  amount  of  data  from  a  long  list- 
ing. When  saving  a  partially  completed 
listing,  make  sure  to  note  the  address 
where  you  stopped  typing  so  you'll 
know  where  to  resume  entry  when  you 
reload, 

MLX  reports  the  standard  disk  or 
tape  error  messages  if  any  problems  are 
detected  during  the  save  or  load.  (Tape 
users  should  bear  in  mind  that  Commo- 
dore computers  are  never  able  to  detect 
errors  during  a  save  to  tape.)  MLX  also 
has  three  special  load  error  messages: 
INCORRECT  STARTING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  does  not  have  the  starting  address 
you  specified  when  you  ran  MLX; 
LOAD  ENDED  AT  address,  which 
means  the  file  you're  trying  to  load 
ends  before  the  ending  address  you 
specified  when  you  started  MLX;  and 
TRUNCATED  AT  ENDING  ADDRESS, 
which  means  the  file  you're  trying  to 
load  extends  beyond  the  ending  ad- 
dress you  specified  when  you  started 
MLX.  If  you  see  one  of  these  messages 
and  feel  certain  that  you've  loaded  the 
right  file,  exit  and  rerun  MLX,  being 
careful  to  enter  the  correct  starting  and 
ending  addresses. 

The  QUIT  menu  option  has  the 
obvious  effect — it  stops  MLX  and  en- 
ters BASIC.  The  RUN/STOP  key  is  dis- 
abled, so  the  Q  option  lets  you  exit  the 
program  without  turning  off  the  com- 
puter. (Of  course,  RUN/STOP-RE- 
STORE also  gets  you  out.)  You'll  be 
asked  for  verification;  press  Y  to  exit  to 
;  BASIC,  or  any  other  key  to  return  to  the 


menu.  After  quitting,  you  can  type 
RUN  again  and  reenter  MLX  without 
losing  your  data,  as  long  as  you  don't 
use  the  clear  workspace  option. 

The  Finished  Product 

When  you've  finished  typing  all  the 
data  for  an  ML  program  and  saved  your 
work,  you're  ready  to  see  the  results. 
The  instructions  for  loading  and  using 
the  finished  product  vary  from  program 
to  program.  Some  ML  programs  are 
designed  to  be  loaded  and  run  like 
BASIC  programs,  so  all  you  need  to 
type  is  LOAD  " filename', &  for  disk  or 
LOAD  "filename'  for  tape,  and  then 
RUN.  Such  programs  will  usually  have 
a  starting  address  of  0801.  Other  pro- 
grams must  be  reloaded  to  specific  ad- 
dresses with  a  command  such  as  LOAD 
•■  filename' ,%,\  for  disk  or  LOAD  "file- 
namd' ,\,\  for  tape,  then  started  with  a 
SYS  to  a  particular  memory  address. 
The  most  common  starting  address  for 
such  programs  is  49152,  which  corre- 
sponds to  MLX  address  COOO.  In  either 
case,  you  should  always  refer  to  the 
article  which  accompanies  the  ML  list- 
ing for  information  on  loading  and  run- 
ning the  program. 

An  Ounce  Of  Prevention 

By  the  time  you  finish  typing  in  the  data 
for  a  long  ML  program,  you  may  have 
several  hours  invested  in  the  project. 
Don't  take  chances — use  our  "Auto- 
matic Proofreader"  to  type  MLX,  and 
then  test  your  copy  thoroughly  before 
first  using  it  to  enter  any  significant 
amount  of  data.  Make  sure  all  the  menu 
options  work  as  they  should.  Enter 
fragments  of  the  program  starting  at 
several  different  addresses,  then  use  the 
Display  option  to  verify  that  the  data 
has  been  entered  correctly.  And  be  sure 
to  test  the  Save  and  Load  options  sever- 
al times  to  ensure  that  you  can  recall 
your  work  from  disk  or  tape.  Don't  let  a 
simple  typing  error  in  MLX  cost  you 
several  nights  of  hard  work. 

MLX 

Fof  instajctions  on  entering  this  lisling,  please 
refer  to  "COMPUTEI's  Guide  to  Typing  In 
Programs"  in  this  Issue  of  COMPUTEI 

EK  100  POKE  56,S0:CLR!DIM  IN5, 
I,J,A,B,A$,B5,A(7) ,m 

DM  110  C4=48:C6=16:C7=7:Z2=2:Z 
4=254: 25=255 :Z6=256f27= 
127 

CJ  120  FA=PEEK(45)+Z6*PEEK(46) 
:BS=PEEK{55)+Z6*PEEK(56 
) :H$="ai23456789ABCDEF" 

SB  130  R$=CHR?C13) :L5=" (LEFT)" 
:S$  =  "  ■',-D$  =  CHR$(20).-Z5  = 
CHR$(0) :T$="{13  RIGHT]" 

CQ  140  SD=54272!FOR  I=SD  TO  SD 
+  23:POKE  1 ,0  :NIEXT:POKE 
{SPACE1SD+24,15:P0KE  78 
8,52 

FC  150  PRINT "[CLR)"CHR$( 142 )CH 
R?(8):POKE  53280, I5:P0K 


EJ  160 


FR  170 


JB  180 


GF  190 


KR  200 


PG  210 


DR  220 


E  53281,15 

PRINT  T$"  {REDKRVSJ 

(2  SPACES lia  @j 

[2  SPACES }"SPC( 28)" 

{2  SPACES  3 {OFF ]{BLU]  ML 

X  II  [REDjiRVS] 

t2  SPACES] "SPCf 28)" 

{12  SPACES }{BLU]" 

PRINT"  (3  EXiWNl 

{3  SPACES JCOMPUTEi 'S  MA 

CHINE  LANGUAGE  EDITOR 

{3  DOWN]" 

PRINT "(elk] STARTING    ADD 

RESS|43"; :GOSU3300!SA=A 

D:GOSUB1040:IF    F    THEN18 

0 

PRINT"{BLKl (2  SPACES) EN 

DING  ADDRESS  B43  ",- :GOSUB 

300:EA=AD:GOSUB1030:IF 

{SPACE  3 F  THEN190 

INPUT" {3  D0WN}{BLK)CLEA 

R  WORKSPACE  [Y/N]g4|";A 

9: IP  LEFT?(A$,1)<>"Y"TH 

EN220 

PRINT" (2  DOWN 5 {BLU] WORK 

INC.. . "; :PORI«BS  TO  BS+ 

EA-SA+7:P0KE    1,0: NEXT :P 

RI NT "DONE" 

PRINTTAB(10)" (2    DOWN) 

{BLK3(RVS3  MLX  COMMAND 

E SPACE 3MENU  {DOWN} §43": 

PRINT  T$"{RVS}E{0FF}NTE 

R  DATA" 

PRINT    T?"{RVS)D{0PF3ISP 

LAY    DATA":PRINT    T?" 

{RVS3l{0FF10AD    FILE" 

PRINT    T5"(RVS}S{0FF]AVE 

FILE": PRINT    T$"{RVS)Q 
{0FF}UIT(2    DOWN}[BLKi" 
GET    AS: IF    A5=N?    THEN250 
A=0:FOR   1=1    TO   5 : IF   A5= 
MID5("EDLSQ", 1,1) THEN    A 
=1:1=5 

NEXT:ON  A  GOTO420 , 610 , 6 
90  ,  700 , 280 :GOSUB1060 :GO 
TO260 

PRINT"(RVS)  quit  ":INPU 
T"{D0WN)E4iARE   YOU    SURE 

CY/N]";A$!lF    LEFTS (A5, 
1)<>"Y"THEN220 
POKE    SD+24,0:EKD 
IN5=N5 :AD=0 : INPUTIN$  sIF 
LEN(  IN?  )  04THENRETURN 
B$=IN$ : GOSOB320 : AD=A: B? 
=MID?(IN$,3) :GOSUB320!A 
D=AD* 2 56+A! RETURN 
A=0:FOR    J=l    TO    2:A$=MID 
?(B$,J,1):B=ASC(A5)-C4+ 
(A$>"ia")*C7:A=A*C6+B 
IF    B<0    OR    B>15    THEN    AD= 
0:A=-1 :J=2 
NEXT : RETURN 

B=INT(A/C6) :PRINT  MID$( 
H5,B+1,1); :B=A-B*C6:PRI 
NT  MID$(H5,B+1,1); :RETU 
RN 

A=INT(AD/Z6) :GOSUB350:A 
=AD-A*Z6:GOSUB350: PRINT 


BE    370    CK=INT(AD/Z6) :CK=AD-24* 

CK+25*(CK>Z7) JGOTO390 
PX    380    CK=CK*Z2+Z5*(CK>Z7)+A 
JC    390    CK=CK+Z5*(CK>Z5) ;RETURN 
QS    400    PRINT" (down) STARTING    AT 
g4i"; jGOSUB300:IF    IN?<> 
N?    THEN    GOSUB1030:IF    F 
{SPACE3THEIS400 
EX    410    RETURN 

HD    420    PRINT "{RVS}    ENTER    DATA 
{SPACE} ":GOSUB400: IF    IN 
?=N5    THEN220 


BD 

230 

JS 

240 

JH 

250 

HK 

260 

FD 

270 

EJ   280 


EM    290 
JX    300 

KF    310 


PP    320 


JA 

330 

GX 

340 

CH 

350 

RR 

360 
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jk  430  0pen3,3:pr1nt 
sk  440  poke19b,0;gosub360;if  f 
then  print   in$:print" 
[up) [s  right 3"?    . 

GC  450  FOR  1=0  TO  24  STEP  3:fiS 
=S?!FOR  J=l  TO  2: IF  FT 
HEN  B$=MID$(IN$,I+J,1) 

HA  460  PRINT"  {RVS}"B?L$;  .-IF  I< 
24THEN  PRINT"{0FFJ"; 

HD  470  GET  A?: IP  A5=N$  THEN470 

FK  480  IF(A$>"/"ASDA$<": ")OR{A 
$>"@"ANDA$<"G")THEK540 

HP  490  IP  A?=R?  AND( (I=0)AND(J 

"Dor  f)then  print  B$r: 

J=2:NEXT:I=24:GOTO550 
KC  500  IP  A$="(HOMEl"  THEN  PRI 

NT  B5:J=2!NEXT:I=24:NEX 

T:F=0:GOTO440 
MX  510  IP (A5=" (RIGHT )")ANDF  TH 

ENPRINT  8$L5: :GOTO540 
GK  520  IF  A5<>L$  AND  A5<>D5  OR 

((l=0)AND(J=I))THEN  GOS 

UB1060:GOTO470 
HG    530    A$=L$+SS+L?:  PRINT    B$L?,- 

rJ=2-J:IF    J    THEN    PRINT 

( SPACE] L$r : 1=1-3 
QS  540  PRINT  A5;!NEXT  JsPRINT 

[  SPACE  )S5,- 
PH  550  NEXT  I: PRINT: PRINT" f UP] 

{5  RIGHT}"; :INPUT#3, IN? 

tIF    IN$=N$    THEN    CL0SE3 : 

GOTO220 
QC    560    FOR    1=1    TO   25    STEP3:B5= 

MID$(IN5,I) :GOSUB320:IF 
I<25    THEN   GOSUB380iA(I 

/3)=A 
PK    570    NEXTiIF   AOCK    THEN    GOSU 

B1060:PRINT"[BLK) (RVS) 

[SPACE] ERROR:    REENTER    L 

INE    E4i":F=l:GOTO440 
HJ    580    GOSUB1080:B=BS+AD-SA:FO 

R    1=0   TO    7:P0KE   B+I,A(I 

) :HEXT 
QQ    590   AD=AD+8:IF   ADJ-EA   THEN    C 

L0SE3:PRINT"{D0WNHBLU] 

**    END    OP    ENTRY    **(BLK} 

[2    DOWNJ":GOTO700 
GQ    600    F=0 :GOTO440 
QA    610    PRIST"[CLR] [DOWN] [RVS] 

[SPACE] DISPLAY    DATA    ";G 

OSUB400:IF    IN$=N$    THEN2 

20 
RJ    620    PRIKT"[DOWN}[BLU]PRESS: 
(RVS J  SPACE [OFF]    TO    PAO 

SE,     ( RVS ) RETU RN ( OFF  3    TO 
BREAKB4HDOWN)" 
KS    630   GOSUB360:B=BS+AD-SA:FOR 

I=BTQ    B+7:A=PEEK(I) :GOS 

UB350SGOSUB380: PRINT    S? 

CC   640    NEXT:PRINT"{RVS)"; :A-CK 

:GOSUB350:PRINT 
KB   650    P=l!AD=AD+8-IF   AD>EA   TH 

ENPRINT" (DOWN) [BLU]**    E 

ND   OF   DATA    **":GOTO220 
KC    660    GET    A$:IF   A$=R?    THEN   GO 

SUB1080:GOTO220 
EQ    670    IF    A5=S5    THEN    F=F+l:GOS 

UB1080 
AD    680    ONFGOTO630,660,630 
CM   690    PRINT" [DOWN] [RVS)    LOAD 

{SPACE )DATA    ":OP=l:GOTO 

710 
PC    700    PRINT" [DOWN) [RVS]    SAVE 

[SPACE] FILE    ":OP=0 
RX    710    IN5=N$: INPUT "( DOWN ]FILE 

NAHEB43";IN$:IF    IN?=NS 

( SPACE )THEN220 
PR   720   F=0:PRINT"(DOWN}{BLK) 

(RVS)T[0FF)APE   OR    [RVS] 

D[0FF3ISK:    g43"; 


PP    730   GET    A$!lF   AS="T"THEN   PR 

INT "T [ DOWN ) " s  GOTO880 
HQ    740    IF   A$<>"D"THEN730 
HH    750    PR1NT"D[D0WN}":0PEN15,8 

,15, "I0:":B=EA-SA:IN$=" 

0!"+IN5:IF  OP  THEN810 
SQ  760  OPEN  1,8,8,IN$+",P,W":G 

OSUB860!lF  A  THEN220 
FJ  770  AH=INT(SA/256) :AL=SA-(A 

H*256) :PRINT#1,CHRS(AL) 

rCHR$(AH),* 
PE    780    FOR    1=0   TO    B:PRINT#1,CH 

R?{PEEK(BS+I) ) r !lF    ST   T 

HEN800 
FC    790    NEXTrCLOSEl !CLOSE15:G0T 

0940 
GS    800    GOSUB1060:PRINT"{DOWN} 

[BLK] ERROR    DURING    SAVE; 

E4i " tGOSUB860 IGOTO220 
HA   810    OPEN    i,8,8,IN?+",P,R"!G 

OSUB860:IF   A   THEN220 
GE    820    GET#1,A?,B?:AD=ASC(A?+Z 

$)+256*ASC(B$+25) :IF   AD 

<>SA  THEN  F=liGOTO850 
RX  830  FOR  1=0  TO  B:GET#1,A?:P 

OKE  BS+I,ASC(A$+Z$) tIP( 

I<>B)AND  ST  THEN  F=2!AD 

=IiI=B 
FA  840  NEXT: IF  ST<>64  THEN  F=3 
FQ  850  CLOSEl :CLOSE15:ON  ABS(F 

>0)+l  GOTO960,970 
SA  860  IRPUT#15,A,A?;IF  A  THEN 
CLOSEl :CLOSE15:GOSUB10 

60:PRINT"(RVS)ERROR:  "A 

? 
GQ  870  RETURN 
EJ  880  POKE183, PEEK ( FA+2 ): POKE 

187,PEEK{FA+3) :POKE188, 

PEEK(FA+4) :IPOP=0THEN92 

0 
HJ  890  SYS  63466:IF(PEEK(783)A 

NDDTHEN   GOSUB1060:PRIN 

T" (down) [RVS]    FILE    NOT 

[SPACE]F0UND    ":GOTO690 
CS    900    AD=PEEK(829)+256*PEEK(8 

30):IF   ADOSA    THEN    P=l  : 

GOTO970 
SC   910   A=PEEK(831)+256*PEEK(83 

2)-l:F=F~2*(A<EA)-3*(A> 

EA) :AD=A-AD:GOTO930 
KM   920   A=SA:B=EA+1:GOSUB1010:P 

OKE780,3:SYS    633  38 
JF   930   A=BS:B=BS+(EA-SA)+1:G0S 

UB1010:ON   OP    GOTO950:SY 

S    63591 
AE    940    GOSUB1080!PRINT"[BLU}** 
SAVE    COMPLETED    **"!GOT 

0220 
XP    950    POKE147,0:SYS    63562:IF 

[ SPACE )ST>0    THEN970 
FR    960    GOSUB1080:PRINT"(BLU)** 
LOAD   COMPLETED   **"!GOT 

0220 
DP    970    GOSUB1060: PRINT "(BLK) 

(RVS)ERROR    DURING    LOADs 

(D0WN]i43":0N    F   G0SUB98 

0 , 990 , 1000 !GOTO220 
PP  980  PRINT "INCORRECT  STARTIN 

G  ADDRESS  ( " ; :GGSUB360 : 

PRINT"  )":RETURN    '' 
GR  990  PRINT "LOAD  ENDED  AT  ";: 

AD=SA+AD:GOSUB360 : PRINT 
D$ : RETURN 
FD  1000  PRINT "TRUNCATED  AT  END 

ING  ADDRESS": RETURN 
RX  1010  AH=INT (A/256 ) :AL=A-( AH 
*256) :POKE193,AL:POKEl 
94, AH 
FF  1020  AH=INTCa/256) !AL=B-(AH 
*256) !P0KE174,ALsP0KE1 
75, AH ! RETURN 


FX  1030  IF  AD<SA  OR  AD>EA  THEN 

1050 
HA  1040  IF(AD>511  AND  AD<40960 

)0R(AD>49151  AND  AD<53 

248)THEN  GOSUB1080 :F=0 

J  RETURN 
HC  1050  GOSUB1060:PRINT"(RVS) 

(space) INVALID  ADDRESS 
( DOWN] { BLK] " : F=l : RETU 

RN 
AR  1060  POKE  SD+5,31:POKE  SD+6 

,2 08: POKE  SD, 240: POKE 

[SPACE }SD+1, 4  SPOKE  SD+ 

4,33 
DX  1070  FOR  S=l  TO  100!NEXT:GO 

TO1090 
PF  1080  POKE  SD+5,8sPOKE  SD+6, 

240: POKE  SD,0iPOKE  SD+ 

1,90: POKE  SD+4,17 
AC  1090  FOR  S=l  TO  100:NEXT:PO 

KE  SD+4,0:POKE  SD,0:PO 

KE  SD+1,0 {RETURN 
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FREE  APPLE  SOFTWARE 

Over  1000  Public  Domain  programs  on  50 
diskettes,  $5  ea.  -1-  $1  s/h  per  order.  Send  $1  for 
catalog  (refundable).  C&H  Enterprizes,  Box 
29243,  Memphis,  TN  38127 

TANDY  1000  PROGRAMS  AND  NEWSLETTER 
Send  for  free  information  on  educational  & 
entertainment  programs  i  newsletter.  Soda  Pop 
Software,  FOB  653,  Kenosha,  WI  53141 

FREE  SOFTWARE  CATAUOQI 

Call  Toll-Free  1.800-554-1162,  Tevex,  Inc. 
Save  1/3  off  retail  prices.  We  carry  SSI, 
Elect.  Arts,  Infocom  and  many  more! 

FREE  SOFTWARE  far  C64,  C128,  IBM,  &  CPM. 
Send  SASE  for  info  (specify  computer)  to: 
PUBLIC  DOMAIN  USERS  GROUP 
PO  Box  1442-Al,  Orange  Park,  FL  32067 

COMMODORE:  TRY  BEFORE  YOU  BUY.  Top  25 
best-selling  games,  utiEties,  new  releases.  Visa, 
MasterOrd.  Free  brochure.  Rent-A-Disk,  908  9th 
Ave.,  Huntington,  WV  25701  (304)  522-1665 

SELL  YOUR  PROGRAMS  to  Software  Publishers. 
Software  for  the  Apple,  Atari,  Commodore,  IBM, 
TI,  TRS-80,  Zenith,  Osborne,  Kaypro,  Others. 
Directory  $5.95.  I.W.,  Box  40581,  Pas.,  CA  91104 

ATARI  8  BIT;  FULL  FUNCTION  BUSINESS 
DBMS.  Any  drive(s)/upgTades.  GL/AR/AP/Inv/ 
Mail/W/P.  9000  records/disk.  MICROMOD, 
1635-A  Holden,  Orlando,  FL  32809  (305)  857-6014 

FREE  EVERYTHING  BOOKS  for  TI99/4A  and 
C64/C12et  Our  "Everything  Books"  are  packed 
full  of  the  newest  software,  hardware,  books, 
accessories  and  much  morel  The  prices  are 
low,  the  service  is  dependable,  and  you  can 
order  toll-free.  Request  your  "Everything  Book" 
today.  Call  1-800-348-2778  (219-259-7051  In 
Indiana)  or  write:  TENEX  Computer  Express, 
P.O.  Box  6578,  South  Bend.  Indiana  46660.  (K1A) 

DISCOUNT  SOFTWARE:  Amiga/Apple/Atari/ 
C64-128/IBMPC-PCjr/TRS-80/Tim«</SincIair. 
Free  Catalog:  WMJ  DATA  SYSTEMS, 
4  Butterfly  Dr.,  Hauppauge,  NY  11788 

Genealogy  for  the  54/128.  Family  Tree 
produces  Pedigree  Charts,  Fam.  Group  Records, 
Individ,  Files,  Indexes,  Searches  of  Ancestors. 
LDS  vers,  avail. -$49.95.  Genealogy  Softw.,  FOB 
1151,  Port  Huron,  MI  48061,  (519)  344-3990 

BRIDGE  GAME  PROGRAM  $39.95  demo  disk  $5. 
1  to  4  players  for  IBM,  Apple,  T199,  TRS80,  C64, 
128,  +4,  16,  VIC.  Authors  John  b  Lynda  Allan, 
Box  313,  Azilda,  Ontario,  Canada  POM  IBO 

1  MISCELLANEOUS                                    11 

COMPUTER  CASINO!  24  GAMES!  BLACKJACK, 
21,  DRAW  POKER,  SLOTS,  more!  C54/128  Disk. 
$12.95:  M.  E.  ADAMS,  6547  N.  Acad.  #446-A2, 
Co.  Springs,  CO  80907 

IBM  PCjr  REPORT:  THE  NATIONAL  NEWS- 
Lt  I  1 ER  PCjr-specific  articles,  reviews,  Public 
Domain  from  across  the  nadon.  S18/yr. 
PCjr  CLUB,  FOB  95067,  Schaumburg,  IL  60195 

The  Bard's  Tale  Hint  book,  maps,  magic 
items,  uses,  for  Apple  or  C64  for  $12,50 
Ck  or  MO.  Send  to  Don  Dannelley,  2914 
Pennsylvania,  Wichita  Falls,  TX  76309 

AMIGA  OR  ATARI  ST  SOFTWARE.  20  Different 
disks  $99,  10  disks  $59,  or  $6.95  each.  30  C64 
programs  +  catalog  $2.  Info-SASE  FRUGAL- 
WARE,  23  E.  Green  St.,  W.  Hazelton,  PA  18201 

Amiga  and  C64  Public  Domain  Software. 

For  a  list  of  available  programs  send  a 
self-addiessed,  stamped  envelope  to  MCA, 
P.O  Box  5533,  Katy,  TX  774491-5533 
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words  to  be  set  in  boldface. 
General  Jnfomiation:  Advertisers  using  post  office  box  numbers  in  their  ads  must 

supply  permanent  address  and  telephone  numbers.  Ad  will  appear  in  next  available 

issue  after  receipt. 
Closing:  20  th  of  the  third  month  preceding  cover  date  (e.g.,  June  issue  closes  March 

20th).  Send  order  and  remittance  to:  Harry  Blair,  Classified  Manager,  COMPUTE!, 

P.O.  Box  5406,  Greensboro,  NC  27403.  To  place  an  ad  by  phone,  call  Harry  Blair  at 

(919)  275-9809. 
Notice:  COMPUTE!  Publications  cannot  be  responsible  for  offers  or  claims  of 

advertisers,  but  will  attempt  to  screen  out  misleading  or  questionable  copy. 
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COMPUTE/'s  Disli 

YES!  I  want  to  save  time  and  money.  Please  enter  my  quarterly  subscription 
to  the  following  COMPUTEI  Disk: 

D  Commodore       D  Apple       D  Atari       D  IBM 

D  Save  33%  off  the  single  issue  D  Save  even  more!  2  year  subscription, 

price.  1  year  subscription,  $39.95  S69.95 

All  Disk  orders  must  be  prepaid. 

n  Payment  enclosed  (checl<  or  money  order) 
JJ  Charge    D  MasterCard    n  Visa 

Acct.  No. Exp.  Date 

Signature 

le 

Address . 


City State Zip . 


(Outside  U.S.  and  Canada,  add  $9.00  per  year  for  shipping  and  handling.) 
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Ao/7?50ff  o/ifer5  a  whole  new  world  of  graphics 
capabilities  for  your  Commodore  or  Apple  IIC  or  HE 
computers.  And  Thomson  offers  you  more  than 
the  competition. 

Thomson  monitors  offer  these  advantages: 

•  Compatible  with  IBM;'  Apple,''  Commodore^  Atarr 
and  others 

•  The  choice  of  monochrome  or  color  monitors  with 
TV-grade  to  high  resolution  text  and  graphics 

•  Monochrome  text-editing  mode  for  color  monitors 

•  Alternate  use  as  cable  or  VCR  monitor 

•  Broad  range  of  the  features  you  need  at  the  prices 
you  want 


Because  of  its  versatility  and  compatibility,  you  can 
still  use  your  Thomson  monitor  if  you  switch  computers; 
you'll  never  outgrow  the  capabilities  afaThomson 
monitor. 

Who  is  Thomson?  Thomson  is  a  six  billion  dollar 
multi-national  company  Unlike  our  competition,  we 
design  and  manufacture  our  own  monitors;  so  the  quality 
you  get  is  constant  and  superb. 

Your  Apple  or  Commodore  computer  is  a  great  body. 
Choose  a  Thomson  monitor,  and  give  it  a  beautiful  face. 

For  the  name  of  the  Thomson  dealer  nearest  you, 
call  J-800-325-0464.  In  California  call  I-2I3-5S8-W02. 
(Monday-Friday,  9  a.m.  to  5:00  p.m.  PSTj 


THOMSON  O 

A    SIGHT  FOR   SOBE  EYESJ^ 

©tSSS  Thomon  ConsmerPwduC.  Corporation       5731  W.  SkvsonMenu,,  Soita  HI  CuhorDly,  CA  90230 


From  Origin  comes  the  long-awaited  seguel 

-  to  the  award-winning 

,  Ultima™  III 


Available  on  Apple^ 


Quest. of  the 
/watar^ 

A  state-of-the-cirt  fantasy  role- 
playing  game  of  unprecedented 
magnitude  by  Lord  British™. 


repare  yourself  for  a  grand 
adventure:  Ultima™  IV, 
ixteen  times  larger  than 

Ultima  III,  is  a  milestone  in 

computer  gaming— one  that  challenges 
your  physical  and  mental  skills  while 
testing  the  true  fabric  of  your  character.       •  - 

Enter  Britannia,  kingdom  of  Lord  SOf 
British.  Journey  through  terrain  of  infinite  ", 
proportions,  conversing  with  characters 
on  hundreds  of  topics.  Unravel  the 
mysteries  of  a  superior  magic  system.  At  each  turn  beware  of  daemons,  dragons  and 
long-dead  wizards  haunting  the  most  tranquil  of  places.  Encounters  with  parties  of 
mixed  enen^  types  test  your  strategic  abilities.  Shrewd  use  of  terrain  can  lead  to 
victory  against  seemingly  impossible  odds.  M 

Survive  this  multi-quest  fantasy,  then  begin  the  final  conflict,  your  quest  of  the 
Avatar.  The  ultimate  challenge — the  self—  awaits. ... 


.ig?**^ 


a/^/G/Af 

^SvsTjns  /yir./340  HARVEY  ROAD,  MANCHESTER,  IMH  03103  (603)  644-3360 


ULTIMA       II  sends  you  on  MOEBIUS'"  takes  you 

an  incredible  fantasy  role-  through  the  elemental 

playing  journey  through  planes  of  a  colorful  Orien- 

s^r^TnT  h^"1*'  ^"'^'"^  '"  •^'  ""'^"'  °'  f«n«^=V  and 

Exodus  * """"  adventure  in  search  of  the 

'"""'"*■  Orb  of  Celestial  Harmony. 

"f^^ty^jt  P/i'll"- ,'™  "^'l^-^'!'^  "'Richard  Garriof/Moebiu 


^.?^'^I^:::L^.^'^^-'      PGR^™  is  a  strategy  ga^e 


fast-paced  strategy  role- 
playing  game  where  the 
right  of  way  goes  to  the 
biggest  guns. 


fought  on  the  nuclear  bat- 
llefield  of  tomorrow  as  an 
inhuman  juggernaut  Cyber- 
tank  battles  conventional 
forces. 


